Определить факт наличия чётной цифры в числе

@BloodyS · Регистрация: 01.11.2015

Студворк — интернет-сервис помощи студентам

Составить линейную программу, печатающую значение true, если указанное высказывание является истинным, и false — в противном случае:
В заданном натуральном четырехзначном числе N имеется четная цифра. pascal

@ZX Spectrum-128 · 03.11.2015, 18:15

Определить есть ли в заданном четырехзначном числе четная цифра

@Zvonkov · 03.11.2015, 18:17

Проверку на ввод числа можно убрать, оставить только RealLn(n);

Pascal

program untitled;
 
var
    n, i: Integer;
    res: boolean;
 
begin
    repeat
        Write('Введите n (n > 0, n < 10000): ');
        ReadLn(n);
    until (n>999) and (n<10000);
    res := false;
    for i := 1 to 4 do
    begin
        if ((n mod 2) = 0) then res := true;
        n := n div 10;
    end;
    WriteLn(res);
end.

Пока писал, уже ответили

Но там варианты на мой взгляд сложноватые, особенно первые.

@vint-81 · 03.11.2015, 18:32

Pascal

const n=5127;
begin
 writeln(not(odd(n)and odd(n div 10)and odd(n div 100)and odd(n div 1000)))
end.

@BloodyS 0 / 0 / 0 Регистрация: 01.11.2015 Сообщений: 9
		1
	Определить факт наличия чётной цифры в числе 03.11.2015, 17:53. Показов 732. Ответов 3 Метки нет (Все метки) Составить линейную программу, печатающую значение true, если указанное высказывание является истинным, и false — в противном случае: В заданном натуральном четырехзначном числе N имеется четная цифра. pascal 0

@ZX Spectrum-128 6809 / 4566 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	03.11.2015, 18:15	2
	Определить есть ли в заданном четырехзначном числе четная цифра 0

	03.11.2015, 18:32

Опции темы