Дано натуральное число.определить, есть ли в нем цифра равная а (а вводится с клавиатуры)

300

500

Посмотреть ответы 3

Ответы на вопрос:

Вася1480

Информатика

4,5(22 оценок)

var

a, c: integer;

begin

write('введите число '); readln(c);

write('a = '); readln(a);

write('в числе ', c );

while c < > 0 do

begin

if c mod 10 = a then

begin

writeln(' есть цифра ', a);

exit;

end;

c : = c div 10;

end;

writeln(' нет цифры ', a);

end.

алькамалька

Информатика

4,4(100 оценок)

varz,a,i: integer; beginwriteln('vvedite chislo'); readln(z); writeln('vvedite zifru'); readln(a); for i: =1 to length(inttostr(z)) do beginif z mod 10 = a thenwriteln('est'); z: =z div 10; end; end.

Есенин6261

Информатика

4,7(16 оценок)

Var a,b,c,min: integer; a1,b1,c1: real; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); if a< b then min: =a else min: =b; if c< min then min: =c; a1: =a/min; b1: =b/min; c1: =c/min; writeln('min=',min); writeln('a1=',a1: 5: 2,' b1=',b1: 5: 2,' c1=',c1: 5: 2); end.пример работы программы: a=43b=28c=37min=28a1= 1.54 b1= 1.00 c1= 1.32

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.