Дано целое число А. Определить, есть ли в данном числе цифра, которая равна цифре К - 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
СОХРАНИТЬ ССЫЛКУ