Var a,b,c,m: integer;
begin
readln (a,b,c);
m:=a;
if b<m then m:=b;
if c<m then m:=c;
if m mod 2 = 0 then write('чётное, ') else write('нечётное, ');
if m = 0 then write('ноль') else
if m > 0 then write('положительное') else write('отрицательное')
end.
поскольку условие Или, то должно выполняться хотя бы одно условие
запись 1: пол Ч, Фізика < Біологія (68 < 70) - подходит
запись 2: пол Ч, Фізика = Біологія (69 = 69 ) - не подходит
запись 3: пол Ж, Фізика < Біологія (73 < 74) - подходит
запись 4: пол Ч, Фізика > Біологія (81 > 80 ) - не подходит
запись 5: пол Ж , Фізика > Біологія (79 > 75 ) - подходит
запись 6: пол Ж, Фізика < Біологія (66 < 70) - подходит
Ответ: 4 записи
var
f: integer;
begin
write('Сколько дней: ');
readln(f);
writeln('Полных недель: ', f div 7);
writeln('Полных месяцев (берем месяц 30 дней): ', f div 30);
end.
var a: integer;
begin
readln(a);
if a mod 2=1 then writeln('Да')
else writeln('Нет');
end.
Var
x, y, s: real;
begin
readln(x);
readln(y);
s := abs(x) - abs(y) / 1 + abs (x*y);
writeln(s);
<span>end.</span>