var
a, b, c, d, k: longint;
begin
read(a, b, c, d);
k := 0;
if a mod 2 = 0 then k := k + 1;
if b mod 2 = 0 then k := k + 1;
if c mod 2 = 0 then k := k + 1;
if d mod 2 = 0 then k := k + 1;
writeln(k);
end.
Ответ:Блин,тоже олимпиада.Я тоже не могу это сделать.А ты сделал 1,3,4
Объяснение:
Var a, b : integer;
Begin
Write('Введите число а: ');
Readln(a);
Write('Введите число b: ');
Readln(b);
If a < b then begin
A := 0;
B := a * b;
Write('a = ', a, 'b = ', b);
End
Else
Begin
B := 0;
A := a * b;
Write('a = ', a, 'b = ', b);
End;
End.