Пожаловаться
- 17.05.2018 07:10
- Информатика
- remove_red_eye 10216
- thumb_up 17
Ответы и объяснения 1
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.
Пожаловаться
- 18.05.2018 15:09
- thumb_up 12
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы