Информатика

Нинуся

24 октября, 08:08

Ниже записан алгоритм. Укажите наименьшее пятизначное число x, при вводе которого алгоритм печатает сначала 3, а потом 4.

var x, y, a, b: longint;

begin

a : = 0;

b : = 0;

readln (x) ;

while x > 0 do begin

y : = x mod 10;

if y > 4 then a : = a + 1;

if y < 6 then b : = b + 1;

x : = x div 10

end;

writeln (a) ;

writeln (b)

end.