Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var a, b, s, i : integer;
begin
write('введите а-');
readln (a);
write('введите b-');
readln (b);
s: =0; for i: = a to b do s: =s + i * sqr(i);
writeln ('сумма кубов =', s)
end.
program; var i: byte; str: string; begin for i: =60 to 70 do begin str: =str+chr(i) ; end; writeln(str); end.
var i, x, s : integer;
write('введите число х=');
readln(x);
s: =0
i: =1
while i < =x do
s: =s+i;
i: =i+2
end;
write('сумма нечетных чисел ='; s);
readln
var n,a,i: real; begin readln(n); i: =1; a: =0; while i< =n do begin a: =a+power(i,3); i: =i+1; end; writeln(a); end.
вот программа
Популярные вопросы