Написать программу в паскале определяющую и выводящую наибольшее из трех чисел
130
257
Ответы на вопрос:
program maxof3;
var a,b,c,t,max: real;
begin
writeln('type 3 different numbers');
write('a = '); read(a);
write('b = '); read(b);
write('c = '); read(c);
t : = (a+b)/2 + abs(a-b)/2; {abs(x) - модуль числа х}
max : = (t+c)/2 + abs(t-c)/2;
writeln('max = ', max: 2); {: 2 - количество знаков после запятой}
end.
Популярно: Информатика
-
Bigrash19.04.2022 21:19
-
ivantretyak0201.07.2020 07:48
-
аноним437813.10.2021 23:06
-
данил204823.03.2020 21:51
-
nastya274722.08.2020 18:51
-
iMpreSS1ve133720.03.2022 22:59
-
грустнаякакахаха11.06.2023 23:31
-
отличник73208.06.2023 10:52
-
romsik199920.08.2020 14:50
-
anastasiabejena05.04.2020 19:18