Question

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

Answer 1

var a:integer;
begin
  readln(a);
  if a mod 10 =0 then writeln ('Цифра 0 есть')
  else writeln('Цифры 0 нет');
end.