Var a,b,c,m:integer;
function min(x,y:integer):integer;
begin
if x<y then min:=x else min:=y;
end;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
m:=min(min(a,b),c);
writeln('min=',m);
<span>end.
Пример:
a=5
b=3
c=8
<span>min=3
</span></span>
<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('x,y=');
Writeln((Sin(x)+cos(y))/(Cos(x)-Sin(y))*Tan(x*y))
end.
Вот для пальцев физкультура
С буквами ....... (клавиатура
Не зверушка не летаешь
а по коврику скользишь
курсором управляешь
ты – компьютерная...(мышь.)
Долго сочиняла
вот простые вопросы
на него мы смотрим, на столе стоит программы открывает. монитор
Сохраняет все секреты
*ящик* справа возле ног
и слегка шумит при этом
Что за *звер?* ситем блок
Ответ <span>третий слева байт маски</span> в виде десятичного числа равен 240
<span>Программа для создания презентаций, являющаяся частью M</span>icrosoft Office<span> и доступная в редакциях для операционных систем Windows</span><span> и Mac OS</span><span>. Материалы, подготовленные с помощью PowerPoint предназначены для отображения на большом экране — через проектор</span><span>, либо телевизионный экран большого размера
Всё на Вики есть...
</span>