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