НУЖНО НАПИСАТЬ ПРОГРАММЫ НА ПАСКАЛЕ "циклы с условием" 1)Среди чисел 1, 4. 9. 16, 25,... найти первое число, большее n. 2)Дано число n. а) Напечатать те натуральные числа, квадрат которых не превышает n. 3) Дано натуральное число. Определить: а) количество цифр 3 в нем; г) сумму его цифр, больших пяти;

Предыдущий
вопрос Следующий
вопрос

Программа 1:

program FirstNumberGreaterN
va
n, i: integer
begi
write('Введите число n: ')
readln(n)
i := 1
while i * i <= n d
begi
i := i + 1
end
writeln('Первое число, большее ', n, ' - ', i * i)
end.

Программа 2:

program SquaresLessThanN
va
n, i: integer
begi
write('Введите число n: ')
readln(n)
i := 1
while i * i <= n d
begi
writeln(i * i)
i := i + 1
end
end.

Программа 3:

program NumberAnalysis
va
number, digit, count, sum: integer
begi
write('Введите натуральное число: ')
readln(number)
count := 0
sum := 0
while number <> 0 d
begi
digit := number mod 10
number := number div 10
if digit = 3 the
count := count + 1
if digit > 5 the
sum := sum + digit
end
writeln('a) Количество цифр 3 в числе: ', count)
writeln('b) Сумма цифр числа, больших пяти: ', sum)
end.

Это примеры программ на языке Pascal с использованием циклов с условием. В первой программе находится первое число, большее заданного числа n. Во второй программе выводятся натуральные числа, квадрат которых не превышает числа n. В третьей программе определяется количество цифр 3 в заданном числе и считается сумма цифр числа, больших пяти.