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.
Задача 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.
