SOS! Решите в Pascal2 Ввести с клавиатуры 10 чисел. Если квадрат числа меньше 100, напечатать число и его квадрат. P.S Ну пожалуйста,я не могу решить!
SOS!
Решите в Pascal
2 Ввести с клавиатуры 10 чисел. Если квадрат числа меньше 100, напечатать число и его квадрат.
P.S Ну пожалуйста,я не могу решить!
Гость
Ответ(ы) на вопрос:
Гостьvar x, x2, i: integer;
begin
for i:=1 to 10 do
begin
readln(x);
x2:=sqr(x);
if x2<100 then writeln (x, ' ', x2);
end;
end.
Не нашли ответ?
Похожие вопросы