Предмет: Информатика,
автор: dill27
Помогите пожалуйста
Приложения:

Ответы
Автор ответа:
1
Ответ:13 20
Объяснение:вот прога
program progra;
uses crt;
var
x,y:integer;
begin
x:=10;
y:=15;
while y<16 do
if x<=y then begin
x:=x+5;
y:=y-5;
end
else begin
x:=x-3;
y:=y+5;
end;
writeln(x,' ',y);
end.
Похожие вопросы
Предмет: Алгебра,
автор: naumovaroslav5
Предмет: Математика,
автор: karpivsofka
Предмет: Английский язык,
автор: kushnerovdanil28
Предмет: Математика,
автор: lerasavelii1