Ответы на вопрос:
Function min(aa,bb : integer) : integer; begin min: =(aa+bb) div 2 - abs(aa-bb) div 2; end; var a,b,c : integer; begin write('введите три числа: '); readln(a,b,c); writeln('минимальное число: ',min(a,min(b,; end.
Популярно: Информатика
-
Обчисліть значення функції f (x) для заданого дійсного x, взятого з клавіатури....
Aknur22131.12.2020 17:08 -
Напишите все команды которые используются тут. var s,k: integer; begin s :...
кабанерий06.10.2020 02:10 -
Два файла с растровым изображение с одним и тем же изображением. во сколько...
Гектор3106.08.2022 05:30 -
Uses graphabc; var x,y,r: integer; begin setpenwidth(3); setbrushstyle(bsclear);...
magic000018.08.2020 01:46 -
Паскаль, как вывести слово, начинающееся с определенной буквы, которую пользователь...
Goym07.05.2022 00:42 -
Задан двумерный целочисленный массив А из n строк и m столбцов (1 ≤ n, m ≤...
skubelinavika27.05.2022 01:56 -
Как установить режим автоматической проверки орфографии при вводе?...
janneellz31.01.2022 10:54 -
Дано трехзначное число. найдите сумму его цифр. на вход дается число от 100...
алисалисова161115.01.2021 17:08 -
Сикт 9 класс 1: дан массив целых чисел состоящих из 20 элементов. найти кол-во...
SmilLl24.11.2021 22:26 -
Жақшаның ішіндегі тиісті сөздерді қойып жаз ...
данич3628.10.2020 01:50