Ответы
Ответ дал:
2
Ответ:
program dfg;
var
count: Integer;
n: Real;
begin
ReadLn(n);
if n< 2000000 then begin
while n <> 0 do begin
if n = 0 then break;
n:= n / 10;
n:= Trunc(n);
count:= count + 1;
end;
WriteLn(count);
end;
if n >= 2000000 then WriteLn('n < 2000000 !!!!');
readln;
end.
bophloya:
пишет:незаконченная конструкція begin-end
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад