1. Информатика
  2. Составьте программу в паскале

Составьте программу в паскале по этой задаче: дано 2 целых числа (они не равны!). большее из них увеличить в 2 раза, меньшее увеличить на единицу

malenkayakreyz malenkayakreyz    3   08.12.2020 06:44    2

Ответы
katya022 katya022  07.01.2021 06:46

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
daniilnz1 daniilnz1  19.11.2021 19:29
Дан одномерный массив. (Считай индексы элементов массива, начиная с 1.) −16 34 0 −2 2 11 Значение элемента массива — −16. Индекс элемента массива — ?...
anton280605 anton280605  25.07.2019 22:00
Что такое редактирование и форматирование текста...
DianaTesl DianaTesl  08.07.2019 19:20
Нужно написать программу на паскале: дан файл целых чисел f1.создать файл f2 содержащий только отрицательные числа из файла f1...
vadimplay2017 vadimplay2017  08.07.2019 19:20
Напишите текст программы паскаль скоростной трамвай был не рассчитан на то, что в час пик пассажиры будут в нем не только сидеть, но и стоять. узкий проход между сиденьями...
Summerween Summerween  08.07.2019 19:20
Окружной этап всероссийской олимпиады школьников по информатике, 2015, i тур россия, самара, 14 ноября 2015 d. трамвайная остановка имя входного файла: стандартный ввод...
380661146235 380661146235  08.07.2019 19:20
Дано натуральное число. проверить, является ли оно четвертой степенью некоторого натурального числа. язык программирования: паскаль...
Алекс2521 Алекс2521  08.07.2019 19:20
Даны коэффициенты прямой y=kx+b и координаты двух точек. верно ли, что эти точки лежат по разные стороны от прямой? язык программирования: паскаль...
мирали3 мирали3  08.07.2019 19:30
Когда компьютеры начали работать с текстом с графикой со звуком...
dela19 dela19  08.07.2019 19:30
Даны целые числа x и y. вычислить x^(2^y ). язык программирования: паскаль...
Raf4ik15 Raf4ik15  07.10.2019 10:00
Var a,b,d,c: integer; begin d: =sqr(9)=4*a*c; if d 0 then cообщить; нет; решения; x1: =(-b+sqrt(d))/2*a; write ; сообщить; результат; end где ошибка в 4 строке?...

Популярные вопросы