Дано целое число А. Определить, есть ли в данном числе цифра, которая равна цифре К - Turbo Pascal
Формулировка задачи:
Помогите с решением пожалуйста
1. Дано целое число А. Определить, есть ли в данном числе цифра, которая равна цифре К.
2. Числа Фибоначчи определяются по следующему закону: a1=1, a2=1, an+1=an+an-1. Суммировать подряд идущие члены Фибоначчи до тех пор, пока сумма не станет больше заданного числа Х.
3.Дано натуральное число А. Найти сумму делителей этого числа.
4.К числу 15 приписать слева и справа по одной цифре так, чтобы полученное число делилось на 15. Получить все такие числа.
5.Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые являются делителями последнего числа В.
Код к задаче: «Дано целое число А. Определить, есть ли в данном числе цифра, которая равна цифре К - Turbo Pascal»
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
СОХРАНИТЬ ССЫЛКУ