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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
