Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.