Решаем задачи Абрамян на Паскале. While20

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

Решение:

program While20;
var
  N :Integer;
  checkbox:Boolean;
begin
  Write('Введите число N: ');
  Readln(N);
  checkbox:=False;
  while (N > 0) and (not checkbox) do
   begin
    If (N mod 10) = 2 then checkbox:=True;
    N:=N div 10;
   end;                 
  Writeln(checkbox);
end.

program While20;

var

N :Integer;

checkbox:Boolean;

begin

Write('Введите число N: ');

Readln(N);

checkbox:=False;

while (N > 0) and (not checkbox) do

begin

If (N mod 10) = 2 then checkbox:=True;

N:=N div 10;

end;

Writeln(checkbox);

end.

Другие задачи из раздела While можно посмотреть здесь.

Комментарии 4

Кирилл

19.12.2014 в 22:54

можно ради забавы ещё break добавить, чтобы при первом совпадении расчеты прекращались 🙂 правда, бегинэнды добавлять придётся, а это в сумме лишние три строки кода.

Ответить
- Anton
  
  24.12.2014 в 14:02
  
  При диапозоне integer -32768..32767 (тоесть самый максимум цикл провернётся 5 раз) я не стал использовать break. Вообще не люблю использовать break… теряется наглядность… веселее запихать if в while и смотреть на чём закончился цикл но там совсем наглядность уходит… 🙂
  
  Ответить
Newton

28.10.2016 в 00:52

Вариант условия, останавливающий цикл при первом же столкновении с цифрой 2:
while (N > 0) and (not checkbox) do

Ответить
- Anton
  
  28.10.2016 в 07:25
  
  Да, согласен, так лучше. Поправил:
  Было:
  
  while N>0 do
  
  1
  
  while N>0 do
  
  Стало:
  
  while (N > 0) and (not checkbox) do
  
  1
  
  while (N > 0) and (not checkbox) do
  
  Ответить

Решаем задачи Абрамян на Паскале. While20

Комментарии:

Комментарии 4

Добавить комментарий Отменить ответ