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

2

Ответы и объяснения

2013-04-18T05:10:55+00:00
На псевдокоде
Алг(a,b,fl)
Арг a,b
Рез fl
ввод(a;b) {где а-это десятки,b-еденицы}
fl:=true
Если (a=4)или(b=4) то fl:=true все
Если fl=true то вывод('есть') иначе вывод('нету')
конец
  • Tlalok
  • почетный грамотей
2013-04-18T06:13:14+00:00

var

  a:byte;

begin

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

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

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

  else

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

end.