Является ли произведение цифр 3-значного числа четным? (Работа с оператором WHILE—WEND)
Answers & Comments
MarshalXaker
Прошу заметить, что программа работает не только с трёхзначными числами. А работает и с тысячами, и с миллионами
program Znanija; var n,a,i:integer; begin
readln(n);
a:=n;
while(n > 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.
1 votes Thanks 0
MarshalXaker
Прошу заметить, что программа работает не только с трёхзначными числами. А работает и с тысячами, и с миллионами
program Znanija;var n,a,i:integer;begin readln(n); a:=n; while(n > 0) dobegin; i := i * n mod 10;n := n div 10; end; if i mod 2 = 0 then writeln('Произведение цифр числа ', a, ' - чётное число')else writeln('Произведение цифр числа ', a, ' - нечётное число');end.
0 votes Thanks 0
MarshalXaker
Сайт выдавал ошибку, отправил вторую копию ответа. Прошу модераторов удалить
Answers & Comments
program Znanija;
var n,a,i:integer;
begin
readln(n);
a:=n;
while(n > 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.
program Znanija;var n,a,i:integer;begin
readln(n);
a:=n;
while(n > 0) dobegin;
i := i * n mod 10;n := n div 10;
end;
if i mod 2 = 0 then writeln('Произведение цифр числа ', a, ' - чётное число')else writeln('Произведение цифр числа ', a, ' - нечётное число');end.