Задание 13 Параграф 7 ГДЗ Босова 11 класс (Информатика)

Решение #1

Изображение 13. Напишите программу, позволяющую определить, входит ли заданная цифра в некоторое целое неотрицательное число.В данном задании удобно представить число как...
Приложенные файлы
Загрузка...

Рассмотрим вариант решения задания из учебника Босова, Босова 11 класс, Бином:
13. Напишите программу, позволяющую определить, входит ли заданная цифра в некоторое целое неотрицательное число.
В данном задании удобно представить число как строку. Далее, определить, входит ли цифра (представленная в формате символа) в данную строку.
Но, пока со строками не работали. Поэтому вариант такой:
var
x, z, n: integer;
begin
writeln('Введи число');
read(x);
writeln('Введи цифру');
read(z);
n := 0;
while x > 0 do
begin
if x mod 10 = z then n := n + 1;
x := x div 10
end;
if n > 0 then write('входит') else write('не входит')
end.
Программа: Z_7_13.pas (ссылка ниже)
*Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания.
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением