tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Введите наибольшее из
Введите наибольшее из данных чисел (программа должна вывести ровно одно целое число). free pascal 2.4.4
ukjlobfnjh
3 18.07.2019 21:40
1
Ответы
CloudSmile
03.10.2020 07:21
Function max(a,b : Integer) : Integer;
Begin
If a>=b then Max:=a else Max:=b;
end;
Var x,y : Integer;
Begin
Readln(x,y);
Writeln(Max(x,y));
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ксения1376
19.10.2020 00:15
Причины по которым выполняется резервное копирование...
vqhboqvqw
19.10.2020 00:15
Оч нужна класс информатика...
Gdvbfc
03.01.2020 13:48
Игра крокодил гена с чебурашкой играли в какую-то игру, выписывая числа в клетки квадратной таблицы . однако, когда таблица была заполнена целиком, выяснилось, что правила...
Yorgen1
03.01.2020 13:43
Решить на языке программирования golang(или просто go) : (нужно написать программу) последовательность состоит из натуральных чисел и завершается числом 0. определите количество...
ирина1629
03.01.2020 13:30
Применения инструментальных средств широкого назначения и специализированных пакетов прикладных программ для решения информационно-аналитических ....
cvetaharlanova
03.01.2020 15:26
Excel vba basic дан массив а(12) и число с. если среднее арифметическое элементов вектора меньше с, то заменить максимальный элемент массива на полусумму среднего арифметического...
лунтик72
03.01.2020 15:23
Записать формулой логики предикатов предложение : жители швейцарии обязательно владеют , или французским ,или итальянским языками ....
Yulia14929
03.01.2020 14:56
Чему равно число к, если угадывании числа из диапозона от 1 до к было получено х бит информации?...
stesha24
03.01.2020 14:54
Составить программу на языке pascal...
justfrog44Arch
14.03.2021 17:53
Відвідувач банку X вирішив покласти кошти Y під 20% депозит строком на Z років без капіталізації. Скільки коштів отримає X через Z років...
Популярные вопросы
Дан закон движения тела x(t)=1/4t^4-1/2t^2+1. найти а) момент остановки;...
2
Площади двух подобных треугольников равны 500см в квадрате и 125см в...
3
Мәтінің негізгі оиын қыскаша тұжырымда? мәтің мазмұны боиыншақарапайым...
2
Расскажите о своих одноклассниках, какой у вас не любимый предмет и что...
2
у меня контрольная 2 и 3 номер решить ...
1
на первом рисунке вода и вокруг лес. на втором рисунке горы ледяные...
1
6. Найдите значение выражения:8 • (-0,3): (+7,1 – 6,7) + 1,9 – 1,3...
1
решить дифференциальное уравнение с разделяющимися переменными...
3
1.Напишите число x, для которого ЛОЖНО высказывание: НЕ (x 8) ИЛИ (x...
2
Напишите эссе (объем 80-100 слов), по одной из тем, учитывая особенности...
1
Begin
If a>=b then Max:=a else Max:=b;
end;
Var x,y : Integer;
Begin
Readln(x,y);
Writeln(Max(x,y));
end.