Ответ:
program Delitel;
var
n, i, j, c, d: Integer;
a: array of Integer;
begin
Write ('Введите N: ');
ReadLn (n);
SetLength (a, n + 1);
for i := 1 to n do begin
c := 0;
for j := 1 to i do begin
if i mod j = 0 then
Inc (c);
end;
a [i] := c;
end;
c := 1;
for i := 1 to n do begin
if a [i] > a [c] then
c := i;
end;
WriteLn ('Число ', c, ' имеет ', a [c], ' делителей.');
ReadLn;
end.
Операционная система состоит из ядра, загрузчика, оболочки, базовой системы ввода/вывода, а также сервисных программ.
Ядро - главная часть ОС
Загрузчик - компонент, обеспечивающий запуск ОС
Оболочка - то, что видит пользователь
Базовая система ввода/вывода - программы(драйвера), необходимые для взаимодействия ОС с железом компьютера
Сервисные программы - основное ПО, необходимое для управления и обслуживания ОС.
Var s:real;
begin
write('s='); readln(s);
if s>1000 then s:=s-0.01*s;
writeln('S=',s);
end.
Пример:
s=1200
S=1020
Блок-схема - в прилагаемом файле
Зрителельная ,тактильная ,вкусовая,слуховая
Program z1;
var i,n:integer;
a:array [1..100] of integer;
begin
readln (n);
for i:= 1 to 4 do
begin
readln (A[I] );
end;
for i := 1 to 4 do
begin
If A [i] > n then writeln (A [i]);
end;readln;end.