Var a,b,c: integer;
<span>begin
</span><span> write('числа: '); readln(a,b,c);
</span><span> if a>b then swap(b,c);
</span><span> if c<a then swap(a,c);
</span><span> if b>c then swap(b,c);
</span><span> if (a=b) or (b=c) then writeln('ошибка')
</span><span> else writeln('среднее: ',b);
</span><span>end.
</span>
числа: 9 17 8
<span>среднее: 9
</span>
Ну вот, странная программа! Мне каж это не вся прога!
Лукас мне:3
Звуковая информация помойму
Begin
for var i:=1 to 4 do
begin
for var j:=1 to 5 do
write('3 ');
writeln;
end;
end.
(Pascal ABC)