Ответ:
Объяснение:
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.
Ответ: грипп это болезнь )0)))))
Объяснение: да
//FPC 2.6.4
Program sieve_of_Eratosthenes;
var
n, i, x:integer;
a: array[1..32000] of boolean;
begin
readln(n);
for i:=2 to (n+1) div 2 do
begin
x:=i*2;
while x<=n do
begin
a[x]:=true;
x:=x+i;
end;
x:=0;
end;
for i:=1 to n do if not a[i] then write(i,' ');
readln;
end.
Var y,z:integer;
bagin
readln(y);
z:=2*y-y*(5*y+3-2);
writeln(z);
end.
<span><em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
</span><span>begin
var r:=ReadReal('Введите вещественное число:');
var n:=Trunc(1000*Frac(r));
var s:=0;
while n>0 do begin
s+=n mod 10;
n:=n div 10
end;
Writeln('Сумма трех первых цифр дробной части: ',s);
end.</span>
<u>Пример</u>
Введите вещественное число: 3.141592
Сумма трех первых цифр дробной части: 6
