//1
begin
for var i:=6 to 12 do print (i);
end.
//2
begin
for var i:=1 to 4 do writeln ('забота');
end.
//3
var sum: longint;
begin
for var i:=1 to 5 do inc (sum, readinteger('Введите число: '));
write ('Сумма пяти чисел: ', sum);
end.
//4
var sum, n: integer;
begin
for var i:=1 to 10 do
begin
n:=readinteger ('Введите число: ');
if (n mod 2)=0 then inc (sum, n);
end;
write ('Сумма четных чисел: ', sum);
end.
//5
var sum, r: integer;
begin
for var i:=1 to readinteger ('Введите n: ') do
begin
r:=readinteger ('Введите число: ');
if (r mod 3)=0 then inc (sum, r);
end;
write (sum);
end.
//6
begin
for var i:=0 to 9 do
if ((4204+10*i) mod 7) = 0 then writeln (i);
end.
а) Серёже надо приходить в 8 часов.
б) нарицательные числа
в) 0 не делиться на 5
I = 450 бит
k = 150 символов
N – ?
N = 2i (степень)
I = ki
i = I/k
i=450/150=3
N=2³=8
Ответ: 8
А) восьмеричной; 77 56+7=63
б) пятеричной; 44 - 20+4=24
в)троичной; 22 - 6+2=8
г) двоичной. 11 - 2+1=3<span>
</span>
X:= 0 x=0 y=0
x:= x+1 x=1 y=0
y:= x x=1 y=1
<span>x:= 2*y+2*x x=4 y=1</span>