30 в 13 степени=300000000000000
Маловато баллов за такую задачу, ну да ладно...
var n:integer; nashel:boolean;
begin
n:=0;
nashel:=false;
while not nashel do if ((n mod 2 = 1)and(n mod 3 = 2)and(n mod 4 = 3)and(n mod 5 = 4)and(n mod 6 = 5)and(n mod 7 = 6)) then nashel:=true else n:=n+1;
writeln(n);
<span>end.
Ответ: 419</span>
Program num9;
const
N = 5;
var
a: array [1..N] of integer;
i: integer;
begin
for i := 1 to N do
readln(a[i]);
for i := N downto 1 do
if (a[i] < 0) and (sqr(a[i]) < 7000) then
writeln(a[i]);
end.
Program z_1;
var i,n,fact:longint;
begin
writeln('введите число от 1 до 10);
read(n);
fact:=1;
if (n>=1) and (n<=10) then
for i:=1 ti n do
fact:=fact*i
else
write('число не входить в диапозон от 1 до 10');
end.
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrGen(7,3,t->3*t); a.Println
end.
<u>Результат</u>
3 9 27 81 243 729 2187