Question

Составить программу сумму и произведение квадратов чисел от 1 до 20​

Answer 1

var

   s : integer;

   m : BigInteger;

   

begin

   m := 1;

   writeln('даны числа: 1..20');

   for var i := 1 to 20 do begin

       s := s+(i*i);

       m := m*(i*i);

   end;

   writeln('сумма квадратов = ', s);

   writeln('произведение квадратов = ', m);

end.