"оно не оканчивается на ноль". или, как вариант: "оно не делится и на десять"
<u>1)</u>program array;
var A : array[1..10000] of integer;
i:integer;
begin
for i:=1 to length(A) do begin
if i mod 3 = 0 then
A[i]:=A[i]*2;
end;
end.
<u>-----------------------------------</u>
<u>2)</u>program fff;
var A : array[1..100] of integer;
i,n:integer;
begin
for i:=1 to n do begin
if i mod 3 = 0 then
A[i]:=i;
end;
end.
Современный Паскаль все сделает сам...
<em>// PascalABC.NET 3.2, сборка 1387 от 17.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x='); Writeln('F=',1/(x-1))
end.
<u>Примеры</u>
x= -3.5
F=-0.222222222222222
x= 1.000001
F=1000000.00008227
x= 1
F=бесконечность
Самое важное программное обеспеч Те ПО это операционная система
1 слово череп
2 юла
вот так !!!!!!!!!!!!!!