![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Ввод целого числа.
Счетчику 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 write('Введите натуральное число, до которого '); write('выводить искомые числа '); readln(n); writeln('Введите число, с которым сравниваете квадрат'); write('его суммы цифр. Оно должно быть точн. квадрат. '); readln(m); write('Искомые числа: '); k: = 1; while k < = n do begin s: = 0; a: = k; while k < > 0 do begin p: = k mod 10; s: = s + p; k: = k div 10 end; if sqr(s) = m then write(a, ' '); k: = a + 1 end end.
Задача 6. Найти наименьшее натуральное число, дающее при делении на 2, 3, 4, 5, 6 соответственно остатки 1, 2, 3, 4, 5.
|