Укажите минимальное натуральное число, при вводе которого этот алгоритм напечатает сначала 2, потом 8.
var x, a, b: longint;
begin
readln(x);
a := 0; b := 1;
while x > 0 do begin
if x mod 2 > 0 then
a := a + 1
else
b := b * (x mod 5);
x := x div 5;
end;
writeln(a); write(b);
end.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.