Дано целое число А. Определить, есть ли в данном числе цифра, которая равна цифре К - Turbo Pascal

Формулировка задачи:

Помогите с решением пожалуйста 1. Дано целое число А. Определить, есть ли в данном числе цифра, которая равна цифре К. 2. Числа Фибоначчи определяются по следующему закону: a1=1, a2=1, an+1=an+an-1. Суммировать подряд идущие члены Фибоначчи до тех пор, пока сумма не станет больше заданного числа Х. 3.Дано натуральное число А. Найти сумму делителей этого числа. 4.К числу 15 приписать слева и справа по одной цифре так, чтобы полученное число делилось на 15. Получить все такие числа. 5.Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые являются делителями последнего числа В.

Код к задаче: «Дано целое число А. Определить, есть ли в данном числе цифра, которая равна цифре К - Turbo Pascal»

textual
var  a,n,b:integer;
   Begin
write('Vvedite chislo A: ');
readln(n);
write('Vvedite cifru K: ');
readln(a);
while (n<>0) do
   Begin
if (n mod 10)=a then
   Begin
writeln('Cifra K EST');
halt;
end;
n:=n div 10;
end;
writeln('Cifri K NET');
end.

13   голосов, оценка 4.154 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы