Написать программу while ..do
Ввести с клавиатуры 10 чисел. Если квадрат числа меньше 100, напечатать число и его квадрат.
Ответы
Ответ дал:
0
Одно из возможных решений. Также можно использовать массив, если это необходимо за условием.
const
n = 10;
var
i, number: integer;
begin
i := 1;
while (i <= n) do
begin
write('Введите ', i, '-ое число: ');
readln(number);
if sqr(number) < 100 then
writeln('Число: ', number, '. Квадрат числа: ', sqr(number), '.');
Inc(i);
end
end.
const
n = 10;
var
i, number: integer;
begin
i := 1;
while (i <= n) do
begin
write('Введите ', i, '-ое число: ');
readln(number);
if sqr(number) < 100 then
writeln('Число: ', number, '. Квадрат числа: ', sqr(number), '.');
Inc(i);
end
end.
Ответ дал:
0
Благодарю
Вас заинтересует
1 год назад
6 лет назад
9 лет назад
9 лет назад