Предмет: Информатика,
автор: mspanda22
Помогите решить!!!
Желательно напишите на листке
Приложения:

Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Геометрия,
автор: 1230rustam
Предмет: Математика,
автор: ssarvarbaikhanovv
Предмет: География,
автор: titovakira879
Предмет: История,
автор: настюха197
Предмет: Геометрия,
автор: bevzenkoliza