Регистрация
nhxjjxjx
23.09.2022 12:45
Информатика
Есть ответ 👍

Выбери программы которые относятся к прикладному по
​

147
401
Посмотреть ответы 2

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

sveta7185684p0dufr
sveta7185684p0dufr
4,6(95 оценок)

Винрар пэинт

Объяснение:

45172
45172
4,5(84 оценок)

var 

a,b,c,s: integer;

begin

readln(a,b,c);

  if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0) then

begin

s: =a+b+c; writeln('сумма равна ', s);

end;

if (a mod 2 < > 0) and (b mod 2 < > 0) and (c mod 2 < > 0) and (a> b) and (b> c) then

begin

writeln('наибольшее число ', a);

writeln('наименьшее число ', c);

end;

else

writeln('a= ',a,' b= ', b, ' c= ',c);

readln;

end.

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