2. Почти простое Число называется почти простым, если оно является произведением ровно двух различных простых чисел. Нужно определить k-ое в порядке возрастания почти простое число
Формат входных данных
Единственная строка входного файла содержит единственное число k (1 <= k <= 100)
Формат выходных данных
Выведите ответ к задаче
Пример
В.in В.out
1 6
2 10
program raf105;
const
n = 9;
var
a,b1,b2:array[1..n] of integer;
k,i,j,c1,c2:integer;
begin
write('Введите число k: ');
readln(k);
writeln('Заполните массив:');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
if a[i] > k
then begin
c1:= c1 + 1;
b1[c1]:= a[i];
end;
if a[i] < k
then begin
c2:= c2 + 1;
b2[c2]:= a[i];
end;
end;
for i:=1 to c1 do
a[i]:=b1[i];
for i:=c1+1 to c2+c1 do
a[i]:=b2[i-c1];
write('Вывод: ');
for i:=1 to n do
write(a[i],' ');
end.
PascalABC 3.4.2// Внимание! Если программа не работает, обновите версию!
begin
var L:=ReadSeqInteger('Введите через пробел три цифры',3).ToList;
if L.All(x->x=0) then Writeln('Хотя бы одна цифра должна отличаться от нуля')
else
if L.All(x->x.IsOdd) then Writeln('Хотя бы одна цифра должна быть четной')
else begin
var d3:=L.Where(x->x.IsEven).Min;
L.RemoveAt(L.FindIndex(x->x=d3));
var s:=L.OrderBy(x->x);
Writeln(s.Last,s.First,d3)
end
end.
Примеры:
Введите через пробел три цифры 2 0 5
520
Введите через пробел три цифры 0 5 0
500
Введите через пробел три цифры 3 9 5
Хотя бы одна цифра должна быть четной