Написать к этому коду блок схему! var a,b:integer; begin writeln ('Введите число');...

Question

Написать к этому коду блок схему! var a,b:integer; begin writeln ('Введите число'); readln(a); repeat a:= a div 10; inc(b); until a=0; writeln ('Кол-во цифр = ',b); end.

Answer 1

СМ СКРИН

========================

---