Вычислить сумму площадей всех квадратов - Turbo Pascal
Формулировка задачи:
Имеется m квадратов, вписанных последовательно друг в друга так, что их границы не пересекаются. Длина стороны самого большого квадрата равна d, длина следующего квадрата меньше на величину h и т.д. Вычислить
сумму площадей всех квадратов, считая m, d, h – заданными числами.
Решение задачи: «Вычислить сумму площадей всех квадратов»
textual
Листинг программы
var
d,s,h:real;
m:integer;
begin
write('m,d,h=');readln(m,d,h);
s:=d*d;
for m:=m-1 downto 1 do begin
d:=d-h;
if d<0 then begin
writeln('Закончились квадраты. d<0');
break;
end;
s:=s+d*d;
end;
writeln('S=',s:0:2);
end.