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

Составить блок-схему и программу увеличения большего из двух чисел на 1

ilyaachkasovggp06kg1 ilyaachkasovggp06kg1    1   03.06.2019 02:20    27

Ответы
veronika56454 veronika56454  03.07.2020 15:49

var

a,b  : integer;

begin

writeln('введите 1 число ');

readln(a);

writeln('введите 2 число');

readln(b);

if a>b then

begin

y:=a+1;

writeln('1 число больше',y)

else

begin

y:=b+1;

writeln(' 2 число больше ',y);

end;

end;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
jiminlave449 jiminlave449  21.05.2020 17:12
Напишите программу на паскале для решения следующей задачи . Даны два числа m и n . Если числа равны,то замените каждое из них суммой m+n,иначе -нулем....
Ruslan1111111123 Ruslan1111111123  21.05.2020 17:11
Pascal ABC задача с циклом for.Пойманную мышь посадили в клетку. За первый день она съела s граммов сыра. Каждый следующий день ей давали на 2% больше, чем в предыдущий....
Doshatop Doshatop  22.05.2020 17:23
512мб информации переданы за 256 секунд ​...
chelsi09 chelsi09  22.05.2020 17:23
11. Це програмний комплекс, що забезпечує злагоджену роботу всіхапаратних засобів комп ютера, виконання всіх програм і їх взаємодію зданими, взаємодію між користувачем...
dwawd dwawd  21.05.2020 17:01
Гиперсілтеменің адресі деген не?...
zajnabh35 zajnabh35  22.05.2020 17:23
Среди приведённых ниже трёх чисел, записанных в различных системах счисления, найдите наибольшее и запишите его в ответе в десятичной системе счисления...
RetoGero RetoGero  22.05.2020 17:23
12. Виберіть функції та призначення програмнархіваторів.1)Стиснення файлів та папок до менших розмірів. 2) Інсталяція програмних засобів. 3) Створення архівів. 4) Розпаковування...
viktoriapleva viktoriapleva  22.05.2020 17:02
16. Выполните действия в двоичной системе счисления (записать решение и товет) 1101*11+10111-101...
zjablja zjablja  22.05.2020 17:22
Переведите данное число из 10-чной системы счисления в 2-чную систему счисления:9010=? а)1010101 б)1110101 в)1011010 г)1111010​...
lizabezludnaya lizabezludnaya  22.05.2020 17:22
Я вас решите, я в 9 класс не перейду из за одной информатики, я вас Что будет выведено в результате выполнения цикла? for i := 19 to 29 do s := s+7; 2. Что будет выведено...

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