Вводятся 10 чисел

[grooveone]

Помогите пожалуйста!)Вводятся 10 чисел.Вывести квадрат суммы этих чисел используя цикл ДО.Буду очень благодарен за написание программы!

[type_Oleg]

Сообщение от grooveone

.. используя цикл ДО...

Точно Паскаль? Может все же Фортран?

[ZX Spectrum-128]

Если ДО
В смысле ОТ ... ДО
То это школьный алгоритмический

[grooveone]

Точно!)))))))

[grooveone]

Помогите пожалуйста((

[ZX Spectrum-128]

Sum:=0;
For i:=1 to 10 DO 
 Begin
  Readln(a);
  Sum:=sum+a;
 End;
 Sum:=sqr(sum);