Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
PROGRAM Z;
var a,b,c:integer;
begin
readln(a,b);
If a<b then c:=a+b
else c:=a-b;
writeln(c) ;
end.
program xxx;
var i, n, s : integer;
write('введите число n=');
readln(n);
s: =0;
i: =2;
while i< =n do
s: =s+i;
i: =i+2
end;
write('сумма четных чисел =', s);
readln
мы заметили закономерность- с каждым днем кол-во ряски увеличивается в 2 раза.30 июня ряска покрыла всю поверхность озера ===> половина озера была покрыта ряской 29 июня.
Популярные вопросы