1 В банке произошло ЧП! Из сейфа выкрали секретные счета. Только что позво-нил «доброжелатель» - он запрятал эти счета в ячейках камеры хранения, номер вы сможете определить, выполнив его условия: вы должны определить резуль-таты выполнения предоставленных вам программ и сложить их. Полученное число и есть номер нужной ячейки камеры хранения.

1. ………………. a:=4; b:=7; If a
3.

……………….

a:=7; b:=4;

If a
b:=a+b;

write(a,b);

…………….. 4. ………………. a:=4; b:=4; If a
2 Ниже приведена программа, записанная на разных языках программирования.

Паскаль Алгоритмический язык

var s,k: integer;

begin

readln(s);

readln(t);

if (s < 1) and (t < 2)

then

writeln ('YES')

else

writeln ('NO')

end. алг нач цел s, t ввод s ввод t если s < 1 и t < 2 то вывод "YES" иначе вывод "NO" все кон

Было выведено 9 запусков программы, при которых в качестве значений перемен-ных вводились следующие пары чисел (s, t):

(3, 5); (4, 3); (4, −5); (0, 7); (0, −2); (−2, 1); (−2, 5); (−2, −4); (1, 2).

Сколько было запусков, при которых программа напечатала

C самого детства-я считал, что в вычислительных машинах таилось нечто особенное, непонятное многим людям. В возрасте 6 лет я точно определился-компьютеры-моя любовь. Достаточно много времени с того момента, и я уже во многом разбираюсь, но до сих пор точно не определился, на какую специализацию пойти в будущем, ведь их так много! Информационная безопастность, прикладная информатика, программирование автоматизированных систем, web программирование, специалицазии на определенных языках программирования...-у меня разбегались глаза. Впрочем я и сегодня, занимаясь письмом этого сочинения до сих пор думаю о своем "Великом выборе".

Однако одно я могу заявить точно, с настоящей гордостью-"Я люблю компьютеры и хочу связать с ними свою жизнь!"

Program zadacha;

Const n = 10;

Type mas=array[1..n] of integer;

Var s,i,k,d:integer;

m:mas;

Begin

s:=0;

k:=0;

readln(d);

For i:=1 to n do

read(m[i]);

For i:=1 to n do

if m[i]<d then begin

s:=s+m[i];

k:=k+1;

end;

writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);

end. (Это решение для случая если вы вводите сразу весь массив чисел)

Program zadacha;

Const n = 10;

Var s,i,k,d,m:integer;

Begin

s:=0;

k:=0;

readln(d);

for i:=1 to n do begin

readln(m);

if (m < d) then begin

s:=s+m14;

k:=k+1;

end;

end;

writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);

end. (А это решение для того случая когда вы вводите элементы по одному )