Var i,n:integer;
begin
n:=1;
i:=1;
write ('Числа не кратные 2 и 5: ');
while i<=8 do
begin
if (n mod 2 <> 0) and (n mod 5 <> 0) then
begin
write (n,' ');
i:=i+1;
end;
n:=n+1;
end;
end.
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(7,-5,5); a.Println(',');
a.Transform(t->t>3?-10:t+2); a.Println(',')
end.
<u>Пример</u>
-2,-1,4,2,5,0,2
0,1,-10,4,-10,2,4
Alviko прав, однако мы тут не благородные влюблённые, чтобы, в случае отказа, не надоедать, посему попытаться стоит, пусть и с PascalABC.NET:
var
a: System.Numerics.BigInteger := new System.Numerics.BigInteger(1);
i: integer;
begin
for i := 58 to 158 do
a := a * i;
writeln(a);
<span>end.</span>
Вот я рассказал несколько способов, как преобразовать word бесплатно и без особых заморочек, используя 2 разных подхода: Стандартные офисные программы, Специальное приложение.
Удачи !!!!!
Эта точка может находиться в любой четверти