Цикл с условием, Паскаль

Абай · 12.06.2011, 21:46

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

Vladimir_S · 13.06.2011, 10:17

Цитата:

Сообщение от Абай

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

Код:

VAR
 N,m,d:LongInt;
 b:boolean;
begin
 Write('N (>0 and <2147483648) = ');
 Readln(N);
 b:=false;
 Repeat
  m:=N mod 10;
  If (m mod 2)=1 then b:=true;
  N:=N div 10;
 Until b or (N=0);
 Writeln(b);
 readln
end.

12.06.2011, 21:46	#1 (permalink)
Абай Member Регистрация: 03.06.2011 Сообщений: 19 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Цикл с условием, Паскаль While21. Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеются ли в записи числа N нечетные цифры. Если имеются, то вывести TRUE, если нет — вывести FALSE

12.06.2011, 21:46
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Вам должны быть интересны данные обсуждения Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Цикл с параметром for Цикл с условием, Паскаль Паскаль Паскаль

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070