написать программу вычисляющую квадраты введены с клавиатуры чисел,пока не выйдет ноль!!!!
Пожалуйста (паскаль)
Знаю только квадрат как вычеслять.
Uses crt;Var x: Integer; s: Char;BEGINClrscr;Repeat Writeln(Введите число: ); Readln(x); Writeln(Квадрат: ,sqr(x));ENDОцени ответ
