Предмет: Информатика,
автор: 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.
Интересные вопросы
Предмет: Английский язык,
автор: julia9242
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Математика,
автор: vladat852
Предмет: Математика,
автор: ingabrs