Журналист
Орлов 26 октября 2019 в 01:16

Является ли произведение цифр 3-значного числа четным? (Работа с оператором WHILE—WEND)

Прошу заметить, что программа работает не только с трёхзначными числами. А работает и с тысячами, и с миллионами

program Znanija;var n,a,i:integer;begin
readln(n);
a:=n;
while(n gt; 0) dobegin;
i := i * n mod 10;n := n div 10;
end;
if i mod 2 = 0 then  writeln(Произведение цифр числа , a, - чётное число)else  writeln(Произведение цифр числа , a, - нечётное число);end.
Прошу заметить, что программа работает не только с трёхзначными числами. А работает и с тысячами, и с миллионами

program Znanija;
var n,a,i:integer;
begin

readln(n);

a:=n;

while(n gt; 0) do
begin;

i := i * n mod 10;
n := n div 10;

end;

if i mod 2 = 0 then 
writeln(Произведение цифр числа , a, - чётное число)
else 
writeln(Произведение цифр числа , a, - нечётное число);


end.
Компьютеры и вычисления
Для комментирования необходимо зарегистрироваться на сайте