Помогите! В Паскале! Одно число в 2 раза больше другого, а их сумма равна 93. Найти эти числа.

Question

Информатика

Никола

19 мая, 02:21

Помогите! В Паскале! Одно число в 2 раза больше другого, а их сумма равна 93. Найти эти числа.

+5

Ответы (1)

Знаете ответ на вопрос?

Надея · Answer 1

var i, j:integer;

begin

for i:=1 to 93 do

for j:=1 to 93 do

begin

if (i=j*2) and (i+j=93) then writeln ('Большее число равно ', i,' а меньшее равно ', j) ;

end;

end.