Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиПоискОблакоVK ComboВсе проекты

Как решить задачу с помощью языка программирования "turbo paskal" условие которой:

INKOGNITO Профи (517), на голосовании 13 лет назад
- дано натуральное число...
-сколько цифр в данном целом числе;
-верно ли,что в данном числе встречаются цифры А и В (А и В вводятся с клавиатуры) помогите плиз!
Голосование за лучший ответ
Аццкий скорпиончег Просветленный (23523) 13 лет назад
uses CRT;
var in_a,in_b: Boolean; a,b,n,k,m: Integer;
begin
clrscr;
write('Введите число n: ');
readln(n);
write('Введите a и b: ');
readln(a,b);
k:=0;
in_a:=false;
in_b:=false;
while n > 0 do
begin
k:=k+1;
m:=n mod 10;
if m = a then in_a:=true;
if m = b then in_b:=true;
n:=n div 10;
end;
writeln('Число цифр: ',k);
if in_a and in_b then writeln('Верно, и a, и b встречаются среди цифр числа n') else writeln('Неверно');
readkey;
end.
William Знаток (340) 13 лет назад
Киря пардон конечно, но ты идиот))) ) Надо без строчных и массивов.
Похожие вопросы