Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.
не? я не уверен
var i: integer;
s,z: real;
begin
z: =8;
for i: = 2 to 7 do begin
s: =s+z;
z: = z*(1+10/100);
end;
writeln(s);
end.
Популярные вопросы