Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2». Если имеется, то вывести TRUE, если нет — вывести FALSE

Категория: Delphi/Pascal
2013-02-24 17:53:39
code: #pascal
program while20;
uses crt;
var
  n:integer;
  t:boolean;
begin 
  clrscr;
repeat
  write('Введите число ');
  readln(n);
until n > 0;
  t:=false;
while n > 0 do
  begin
    if (n mod 10)=2 then t:=true;
      n:=n div 10;
  end;
  write(t);
  readln;
End.

автор: Oleg Voloshin

Поделиться:

Похожие статьи:

теги: деление, целое, остаток