Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
21,24,27,30,33,36,39,42,45,48
var i: integer;
begin
for i: =1 to 1000 do
if i mod 2 = 1 then writeln(i*i*i);
end.
program d; var s : string; begins : = 'параллелограмм'; delete(s, 1, 9); delete(s, 3, 2); insert('о', s, 3); write(s); end.
var sum,n,i: integer;
readln(n);
sum: =0;
for i: =1 to n do
sum: =sum+i;
writeln(sum);
readln;
Популярные вопросы