дано целое двузначное число. Составить программу которая определяет входит ли в него цифра 4

Question

Информатика

Нелли

7 марта, 23:52

дано целое двузначное число. Составить программу которая определяет входит ли в него цифра 4

+1

Ответы (2)

Знаете ответ на вопрос?

Арнольд · Answer 1

На псевдокоде

Алг (a, b, fl)

Арг a, b

Рез fl

ввод (a; b) {где а-это десятки, b-еденицы}

fl:=true

Если (a=4) или (b=4) то fl:=true все

Если fl=true то вывод ('есть') иначе вывод ('нету')

конец

Настасия · Answer 2

var

a:byte;

begin

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

if (a div 10 = 4) or (a mod 10 = 4) then

writeln ('В число входит цифра 4')

else

writeln ('цифра 4 в число не входит') ;

end.