Напишите функцию которая вычисляет максимальное из трех чисел visual basic
274
330
Ответы на вопрос:
var a, b, c: integer;
function naib(af, bf, cf: integer): integer;
var max: integer;
begin
if af > bf then max := af else max := bf;
if cf > max then max := cf;
naib := max;
end;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
writeln('Наибольшим из введённых трёх чисел является ', naib(a, b, c));
end.
Объяснение:
Популярно: Информатика
-
florzy09.12.2021 16:48
-
Клер1133025.05.2022 10:27
-
dzyskristina50320.05.2020 08:57
-
даша364911.07.2021 20:19
-
voenngti03.11.2020 03:16
-
braychenko115.08.2022 07:51
-
Tgnbva20.10.2022 13:22
-
аноним123456789101124.02.2023 06:17
-
LopsterId123654324.09.2020 16:01
-
slavikelite07422.11.2021 11:48