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

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

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

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

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку