Предмет: Информатика, автор: mspanda22

Помогите решить!!!
Желательно напишите на листке

Приложения:

Ответы

Автор ответа: TeamHeadKick
0
Var n,k:integer;
Label 1,2;
Begin
Writeln(' Введите значение переменной n');
Readln(n);
k:=0;
1:If (n>0) then
Begin
n:=n/10;
k:=k+1;
goto 1;
End
Else
goto 2;
2:writeln(k);
End.
Похожие вопросы
Предмет: Математика, автор: ssarvarbaikhanovv
Предмет: Геометрия, автор: bevzenkoliza