Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Решить в паскале задачу (8-9 класс):
дано четырехзначное число. определить, входят ли в него цифры 2 или 7

Ответ оставил Гость

program test;
var x, temp: integer; flag: boolean;
begin
   write(Введите целое четырёхзначное число: );
   read(x);

   flag:=false;

   while x <> 0 do
   begin
      temp:=x mod 10;

      if (temp = 2) or (temp = 7) then
      begin
         flag:=true;
         break;
      end;

   x:=x div 10;

end;

   if flag then
      writeln(2 или 7 входят в число.)
   else
      writeln(2 или 7 не входят в число.);
end.