составьте программу в паскале по этой задаче:
дано 2 целых числа (они не равны!). большее из них увеличить в 2 раза, меньшее увеличить на единицу
Ответы
Ответ дал:
0
program gg;
var x1, x2: integer;
begin
x1:=random(1000);
x2:=random(1000);
if x1 > x2 then
begin
x1:= x1*2;
x2:= x2 + 1
end
else
begin
x2:= x2*2;
x1:= x1 + 1
end;
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад