Program dlksjijh;
var
A: array[1..40] of integer;
i: integer;
begin
randomize;
writeln('исходные данные:');
for i := 1 to 40 do
begin
A[i] := Random(21);
write(A[i], ' ');
end;
writeln;
writeln('преобрезованный массив:');
for i := 1 to 40 do
begin
if A[i] mod 2 = 0 then
A[i] := Round(A[i]/2)
else
A[i] := A[i] * 3;
write(A[i], ' ');
end;
end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
У меня работает.
Как - то так
uses crt;
var x,ans:integer;
begin
ans:=0;
read(x);
while x<>0 do
begin
if (x MOD 2)=0 then
ans:=ans+1;
read(x);
end;
writeln(ans);
end.<span>
</span>
Var
i:integer;
n,m:longint;
begin
Write('Введите натуральное m: '); Read(m);
n:=1;
repeat
n:=3*n; Inc(i)
until n>m;
Writeln('3^',i-1,' = ',n div 3,' не превышает ',m)
end.
<em><u>Тестовые решения:</u></em>
Введите натуральное m: 1
3^0 = 1 не превышает 1
Введите натуральное m: 3
3^1 = 3 не превышает 3
Введите натуральное m: 54652341
3^16 = 43046721 не превышает 54652341
Ответ:
453(*)
521
-----
+ 453
+ 1126
+2727
-------
304633(в 8 системе счисления)