for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);
writeln;
end.
Ответ дал: Гость
var
i,n: integer;
a: array [1..100] of integer;
begin
readln(n);
for i: =1 to n do
begin
if i mod 2 =0 then a[i]: =i-3
else a[i]: =i+3;
writeln(a[i]);
end;
end.
Ответ дал: Гость
мы заметили закономерность- с каждым днем кол-во ряски увеличивается в 2 раза.30 июня ряска покрыла всю поверхность озера ===> половина озера была покрыта ряской 29 июня.
Популярные вопросы