Предмет: Информатика,
автор: ruslan2679
помогите пожалуйста! срочно надо!!!
Приложения:
Ответы
Автор ответа:
0
Program ABC;
uses crt;
label goback;
Var A,B,K:real;
Begin
goback:
A:=23;
B:=5;
K:=0;
if A>=B thenIf A=B then writeln (K) else a:=a-b
else begin B:=B-A;
K:=K+1;
goto goback;
end;
end.
uses crt;
label goback;
Var A,B,K:real;
Begin
goback:
A:=23;
B:=5;
K:=0;
if A>=B thenIf A=B then writeln (K) else a:=a-b
else begin B:=B-A;
K:=K+1;
goto goback;
end;
end.
FraudGood:
Program ABC;
Program ABC;
uses crt;
label goback;
Var A,B,K:real;
Begin
goback:
A:=23;
B:=5;
K:=0;
if A>=B then
If A=B then writeln (K) else a:=a-b
else begin B:=B-A;
K:=K+1;
goto goback;
end;
end.
uses crt;
label goback;
Var A,B,K:real;
Begin
goback:
A:=23;
B:=5;
K:=0;
if A>=B then
If A=B then writeln (K) else a:=a-b
else begin B:=B-A;
K:=K+1;
goto goback;
end;
end.
Похожие вопросы
Предмет: Английский язык,
автор: alyonaermakova64
Предмет: Информатика,
автор: epigames
Предмет: Английский язык,
автор: darinka123vitaminka
Предмет: Биология,
автор: Стенфорд1