Вычислить сумму площадей всех квадратов - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д