Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var s,r: real;
begin
read(r);
s: =pi*sqr(r);
writeln(s: 0: 4);
end.
var i: integer;
s,z: real;
z: =8;
for i: = 2 to 7 do begin
s: =s+z;
z: = z*(1+10/100);
end;
writeln(s);
ну например
в первом столбике пишешь числа попорядку
во втором столбике пишешь "=a1*a1" и протягиваешь вниз на всю таблицу
в третем пишешь "=a1*a2" и протягиваешь вниз на всю таблицу
в первом столбике у нас получается число
во втором квадрат числа
в третем - куб числа
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.
вот программа
Популярные вопросы