Составьте программу нахаждения суммы квадратов натуральных чисел от 15 до 25 . Пожалуйста помогите
Answers & Comments
Рузкый
Program p1; uses crt; var a,b,i:integer; begin for i:=15 to 25 do begin a:=a+i*i; b:=i*i; writeln('Сумма:',a,'(квадрат числа :',i,'=',b,')'); end; write(a); end.
Answers & Comments
uses crt;
var a,b,i:integer;
begin
for i:=15 to 25 do begin
a:=a+i*i;
b:=i*i;
writeln('Сумма:',a,'(квадрат числа :',i,'=',b,')');
end;
write(a);
end.