Регистрация
krasotkak31
27.02.2022 09:29
Информатика
Есть ответ 👍

2 задачи (самые начальные, лёгкие) по информатике. Нужно объяснение или нет, решайте сами.

126
344
Посмотреть ответы 1

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

5class1i
5class1i
4,4(85 оценок)

3-я :

program qq;

var a,b,c,f,m: integer;

begin

writeln('введите три числа');

readln(a,b,c);

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

begin

if a> b then f: =a else f: =b;

if f> c then f: =f else f: =c;

writeln('максимальное число =: ',f);

end

else

if a> b then m: =b else m: =a;

if m> c then m: =c else m: =m;

writeln('минимальное число =: ',m);

end.

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