Регистрация
uradovskiy2015
05.11.2021 16:15
Информатика
Есть ответ 👍

Решите на abc_pascal net я не знаю как делать решите буду вам . 3-4 надо можно любую ​

283
451
Посмотреть ответы 2

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

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.

alicaraut
alicaraut
4,5(10 оценок)
128-120=8байт

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