написать программу вычисляющую квадраты введены с клавиатуры чисел,пока не выйдет ноль!!!!

Пожалуйста (паскаль)

1

Ответы и объяснения

2013-02-24T13:24:32+04:00

Знаю только квадрат как вычеслять.

Uses crt; Var   x: Integer;   s: Char; BEGIN Clrscr; Repeat  Writeln('Введите число: ');  Readln(x);  Writeln('Квадрат: ',sqr(x)); END