Цикл з передумовою та післяумовоюпаскальБудь ласка,як можна швидше!!​

Question

Цикл з передумовою та післяумовоюпаскальБудь ласка,як можна швидше!!​

---

Answer 1

Ответ:

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.

Comments

Ок, пж нажми на кнопку спасибо)

---

получилось

---

спасибо

---

после program dfg; просто поставь begin

---

пишет:незаконченная конструкція begin-end