даны три числа x y x определить какое из них равно k если ни одно не равно k то найти min(k-x, k-y, k-z). Pascal, только не с biolean, а с integer
AnnI820
1
01.04.2021 23:59
0
Другие вопросы по теме Информатика
roksanaatalan
30.04.2020 14:48
alinatitova228
30.04.2020 14:47
spanielskubidu1
30.04.2020 14:47
Lizaveta984
30.04.2020 14:46
i942627
30.04.2020 14:46
tamaravlg
30.04.2020 14:46
oxanabondarenkozv5l4
30.04.2020 14:45
kateKos1
30.04.2020 14:45
Популярные вопросы
- Найди пословицу которая соответствует смыслу предложения у себя...
2 - СОЧ 2-тапсырма .1 мәтіннің мазмұнына сай берілген «шын», «жалған»,...
1 - Задание — 2. Расположи в правильной последовательности, от раннего...
1 - Биология 8 класс таблица help :D...
2 - нарисуй на клетчатой бумаге какую нибудь замкнутую линию найди...
3 - Проанализируйте отрывок из произведения К.Г.Паустовского «Телеграмма»....
1 - СДЕЛАЙТЕ ПОЛНОСТЬЮ ВСЕ ЗАДАНИЯ! ...
2 - Определите критический объем производства и маржинальный доход...
1 - 2.1.Теңдеуді шеш:Х+9=1816-X-92.2.Шығар35+2540-12=50-1827+4=...
1 - 5.Решите уравнение и выполните проверку.390 : (4х +3)=26...
2
biolean?)))
var x, y, z, k:integer;
begin
readln(x, y, z, k);
if k = x then
write('k равно x')
else if k = y then
write('k равно у')
else if k = z then
write('k равно z')
else
write(min(min(k-x, k-y), k-z));
end.