<span>MSAccess - специальное назначение
HTML - системы программирования
"консультант Плюс" - не знаю такой программы
sound.drv - судя по названию это драйвер
basic - </span><span><span>системы программирования
</span>c+, Фортан ,паскаль </span><span><span>- системы программирования
</span>Linux - операционная система
FoxPro - наверно чтото профессиональное
MSWord, MSExcel - специального назначения
macromediaFlash </span>- професиональное
Условия на Паскале прилагаются.
Ресурсы человеческого мозга рассчитаны на переработку информации в 16 бит
Var a:real;
begin
writeln('Введите число');
readln(a);
a:=abs(a);
writeln('Модуль числа равняется ',a);
<span>end.</span>
Const
n=4; { количество разрядов (цифр) в числе }
var
a:array[1..n] of integer;
i,j,k:integer;
begin
Write('Введите ',n,'-значное число: '); Read(k);
for i:=1 to 4 do
begin a[i]:=k mod 10; k:=k div 10 end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then begin k:=a[i]; a[i]:=a[j]; a[j]:=k end;
Writeln('Наибольшая цифра ',a[n],', наименьшая цифра ',a[1],
', их разность ',a[n]-a[1])
end.
<em><u>Тестовое решение:</u></em>
Введите 4-значное число: 1421
Наибольшая цифра 4, наименьшая цифра 1, их разность 3