Регистрация
mayzernik
03.02.2023 11:37
Информатика
Есть ответ 👍

Напишите программу на паскале. в программу вводят 3 числа, например 15 28 10, и она должна выбрать среднею из них. т.е если дается 15 28 10 она должна выписать 15

203
260
Посмотреть ответы 2

Ответы на вопрос:

Violetta291
Violetta291
4,8(29 оценок)

var a,b,c: integer;

begin

readln (a,b,c);

if ((a > b) and (a < c)) or ((a < b) and (a > c)) or ((a< b) and (b=c)) or ((a< b) and (a=c)) or ((a< c) and (a=b)) then writeln(a)

else if ((b > a) and (b < c)) or ((b < a) and (b > c)) then writeln(b)

else writeln(c);

end.

mynames2
mynames2
4,5(43 оценок)
Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var a: =readarrinteger(readinteger('n='));   writeln('нечетных двухзначнык: ',           a.where(t-> t.isodd and abs(t).between(10,) end. пример n= 15 230 256 59 60 291 190 62 -234 -43 228 -154 62 -58 58 100 нечетных двухзначнык: 2

Популярно: Информатика