Регистрация
532настя43510
25.01.2023 13:46
Информатика
Есть ответ 👍

20б Всем привет.

решить, нужно (как решали).

3.е/4.e/5.e

285
404
Посмотреть ответы 1

Ответы на вопрос:

nelyaaa01
nelyaaa01
4,6(77 оценок)

Pascal

Объяснение:

PascalВыделить код

PascalВыделить кодvar

PascalВыделить кодvar n, c: integer;

PascalВыделить кодvar n, c: integer;

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10;

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1;

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1; end;

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1; end;end;

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1; end;end;

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1; end;end; begin

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1; end;end; begin readln(n);

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1; end;end; begin readln(n); Kol(n, c);

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1; end;end; begin readln(n); Kol(n, c); write(c);

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1; end;end; begin readln(n); Kol(n, c); write(c);end.

Популярно: Информатика