Решите пожалуйста задание ** ABC_Pascal NET я не знаю как делать решите буду вам очень...

Question

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

---

Answer 1

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.

Answer 2

Задача 4

var

s,b: integer;

begin

b:=0;

for s:=0 to 100 do

if s mod 7=0 then

b:=b+s;

writeln(b);

end.