Var
x, s, n: integer;
sr: real;
begin
repeat
readln(x);
if (x mod 3 = 0) and (x>0) then
begin
s:=s+x;
n:=n+1;
end;
until x=0;
sr:=s/n;
writeln(sr);
end.
530 * 90 * 70 = 3339000
3339000 : 8 = 417375
3339000 : 417375 = 8
Ответ : 8
For i:= 110 downto 90 do
write(" ",i);
var
a, b, c, m : integer;
begin
read (a, b, c);
m := a;
if b < m then m := b;
if c < m then m := c;
writeln (m);
end.
var
a : array [1..3] of integer;
i, m : integer;
begin
m := a[1];
for i := 2 to 3 do
if a[i] < m then m := a[i];
writeln (m);
end.
var
a, b, c : integer;
begin
read (a, b, c);
if (a <= b) and (a <= c) then writeln (a)
else if (b <= c) and (b <= a) then writeln (b)
else writeln (c);
end.
<span>думаю, да, это что-то типа "молодец, возьми с полки пирожок". Сделано для того, чтоб ученикам не казалось, что они делают это просто так, а всё же что-то за это получают. </span>