Ввод целого числа.

Счетчику k устанавливается первоначальное значение 0.

3. Цикл, пока n < > 0. В цикле, переменной p присваивать значение цифры числа.

Если p = 2, тогда увеличивать k на единицу.

Вычесть из числа n последнюю цифру и разделить его на 10.

Продолжить и закончить цикл.

4. Если k = 0, тогда выдать сообщение: " Цифра 2 не входит в запись числа", иначе, выдать сообщение: " Цифра 2 входит в запись числа".

Конец.

Program Problem4; { Входит ли цифра 2 в запись числа }

uses WinCrt;

var

n, p, k: integer;

begin

write('Введите целое число '); readln(n);

k: = 0;

while n < > 0 do

begin

p: = n mod 10;

if p = 2 then k: = k + 1;

n: = n div 10

end;

if k = 0 then writeln('Цифра 2 не входит в запись этого числа')

else writeln('Цифра 2 входит в запись этого числа')

end.

Задача 5. Составить программу вывода всех натуральных чисел, меньших n, квадрат суммы цифр которых равен заданному числу m.

Решение

Алгоритм решения.

Раздел описаний.

Переменные: n, m, k, a, p, s. Тип целый.

n - для границы значений натуральных чисел, m - для числа, с которым сравнивается квадрат суммы цифр (точный квадрат), k - для натуральных чисел от 1 до n, a - для запоминания натурального числа, перед тем, как будет определяться сумма его цифр, p - для цифр числа, s - для суммы цифр.

Раздел операторов.

Ввод значений n и m. Установить первоначальное значение для k (эта переменная " перебирает " все натуральные числа от 1 до n, k: = 1).

Цикл, пока k < = n.

В цикле: установить первоначальные значения для суммы s (s: =0); запомнить число в переменную a (a: = k).

Цикл для подсчета суммы цифр, пока k < > 0.

В цикле: выделять по одной цифре числа, известным способом; прибавлять по одной цифре к сумме; уменьшать число на последнюю цифру и на порядок.

Закончить цикл для подсчета суммы цифр.

Проверка выполнения условия.

Если квадрат суммы цифр равен заданному числу,

тогда вывести это натуральное число на экран.

Перейти к проверке следующего числа.

Закончить основной цикл проверки чисел.

Закончить программу.

Program Problem5;

uses Crt;

var

n, m, k, a, p, s: integer;

begin