Справочник вопросов и ответов
QUOR - электронный справочник

посчитайте задание на ABC_Pascal NET я не знаю как делать посчитайте буду вам очень благодарен. 3-4 Задачи надо можно любую ​

Тег: Информатика

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.

252