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

Question

Информатика

Алексина

31 января, 18:37

Помогите! В Паскале! Одно число в 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.