Даны 3 целых числа a , b, c.найти сумму максимального значения и числа b .паскаль
169
469
Ответы на вопрос:
var a, b, c: integer;
begin
read (a, b, c);
writeln(max(max(a, b), c) + b);
end.
Программа: clear dimension b[20] for=1 to 20 b[i]=val(inputbox("значения b")) endfor max=b[1] for i=1 to 20 if b[i]> max max=b[i] n=i endif endfor ? max,n блок схему сами сделайте по программе
Популярно: Информатика
-
sonyaway1229.06.2023 05:33
-
BratanTVision09.09.2022 04:49
-
Daniil19951116.04.2023 13:10
-
yfjfufnfkdm22.01.2022 19:33
-
yana01727.07.2020 23:42
-
aleksport1p0ck6i17.04.2020 22:49
-
ира96706.03.2021 12:19
-
КОТ20052005Кот12.01.2023 07:58
-
tonkikhliza01.07.2021 16:12
-
KristinaSchool19.07.2021 02:35