Var
a,b,c : integer;
begin
readln(a,b,c);
if (a < b) and (a < c) then writeln(a);
else if (b < a) and (b < c) then writeln(b);
else if (c < a) and (c < b) then writeln(c);
else writeln('Числа равны');
end.
Вё прочитала, интеремно я могу сказать. с:
Program zad;
var
n: longint;
sum: integer;
begin
readln(n);
sum := 0;
while n > 0 do begin
if n mod 10 mod 2 = 0 then
sum := sum + n mod 10;
n := n div 10;
end;
writeln(sum);
end.
Var
n,b,i,k,r:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(b);
if b>=8 then
begin
k:=k+1;
r:=r+b;
end;
end;
writeln('Количество сдавших:',k);
writeln('Среднее значение:',r/k);
end.