var M:array [1..20] of integer;
n, Ch, Ost : integer;
Begin
ReadLn(n);
while n >= 2 do
begin
Ch := n div 2;
Ost := n mod 2;
M[] := Ost;
end;
WriteLn( M[]);
end.
Григорий-строитель,Алексей-водитель,Вениаин-программист,Борис-аптекарь
1)18<A
2)18<=A
3)A<18
4)A<=18
5)A mod 4 = 0
6)A<=55
begin
var n := ReadInteger;
var s := 0;
var i := 2;
while i <= n do
begin
s := s + i * i;
i := i + 2;
end;
Print(s)
end.
Не следует задавать n > 1000
Хост компьютеры, персональные компьютеры абонентов (терминалы) , линии связи, модемы.