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

0 голосов
60 просмотров

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

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


Информатика (138 баллов) | 60 просмотров
Дан 1 ответ
0 голосов

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

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