Условием проверяй, какое число больше.
Растровая графика (от лат. rastrum - грабли, то есть если разрыхлить землю граблями получится "эффект пикселей" по горизонтали и вертикали)
<em>// PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ReadArrReal('Введите компоненты:',n);
Writeln('Минимальный косинус равен ',a.Select(x->cos(x)).Min:0:5)
end.
Var n:integer;
begin
writeln('Введите число');
read(n);
if (n>=1000) and (n<10000) and (n mod 5=0) then writeln('Удача');
end.
Ответ:
программа Paint. Эта программа очень нужна была обществу, даже сейчас она остаётся незаменимой. На Paint можно рисовать, писать, составлять что либо и просто развлекаться.