ИНФОРМАТИКА!!!33 балла!!! Самостоятельная работа

1)6

2)1621185

3)Б-4 А-1 В-3 Г-4 (не точно)

4) Б-4 A-3 B-2 Г-4

5)256 000бит умножим на 128 (т.к в 2минутах 120 секунд и еще нам дополнительно дают 8 секунд = 128)

128*256000=32768000бит

Переведем бит в Байт 32768000:8=4096000

Переведем Байт в КБайт 409600:1024=4000КБайт

Объяснение:

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

на выходе 109

program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.