Question

Составить алгоритм решения задачи с помощью алгоритмического языка Pascal и с помощью блок-схем, используя конструкцию циклического алгоритма.

Подсчитать площади десяти кругов с радиусами от 1 см с шагом 2 см и вывести значения площадей на экран.

Answer 1

program qq;

uses crt;

const n=10;

pi:=3.14;

var r,s,i:integer;

begin

clrscr;

for i:=1 to n do

begin

s:=sqr(2*i-1)*3.14;

writeln(s);

end;

readln

end.