program ms;
uses crt;
var a:array [1..10] of integer;
l,k,s,i:longint;
begin
clrscr;
writeln('Введите 10 элементов массива');
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]<0 then l:=l+a[i];
if a[i]>0 then k:=k+a[i];
end;
s:=l*k;
writeln(s);
readkey;
end.
===== PascalABC.NET =====
procedure pK(n: integer; var k: int64);
begin
k := 1;
for var i := 2 to n do
k *= i
end;
function fK(n: integer): int64;
begin
Result := 1;
for var i := 2 to n do
Result *= i
end;
begin
var n := ReadInteger('n =');
var r: int64;
pK(n, r);
Println('Процедура:', r);
Println('Функция:', fK(n))
end.
Ответ:
Объяснение:
const
a = 244143;// с какого числа
b = 367821;// по какое число
const_count_div = 5;// количество делителей
label
1;
var
i, k, t:longint;
ar_div:array[1..500] of longint;
count_div:integer;
begin
for i:=a to b do begin // перебираем все числа из заданного промежутка
count_div:=0;
for k:= 1 to i do // для каждого числа перебираем делители
if (i mod k) = 0 then begin
count_div:=count_div + 1;
if (count_div > const_count_div) then goto 1; // если количество делителей больше заданного количества, то на следующий шаг
ar_div[count_div]:=k;// заносим в массив делителей найденный делитель
end;
//writeln;
if (count_div = const_count_div) then begin
//writeln(i, ' ', count_div);
write(i, ': ');
for t:=1 to count_div do
write(ar_div[t], ' ');
writeln;
end;
1:
end;
writeln('End');
readln;
end.
Научная, деловая, иллюстрированная, художественная и рекламная графика, компьютерная анимация.
