Question

Составить программу определения суммы квадратов 15 произвольных чисел, которые вводит пользователь.
1.С помощью цикла с параметром.
2.С помощью цикла с предусловием.
3.С помощью цикла с постусловием.

Answer 1

var

 a,sum,i:integer;

begin

 sum:=0; i:=0;

//3-----------------------  

 repeat

   readln(a);

   sum:=sum+a;

   inc(i);    

 until i=15;

//2-----------------------    

 while i<>15 do

   begin

     readln(a);

     sum:=sum+a;

     inc(i);

   end;

//1-----------------------    

 for i:=1 to 15 do

   begin

     readln(a);

     sum:=sum+a;

   end;

//-----------------------      

 writeln('Sum:',sum);

end.