Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
ответ: 6 бит
(1+1/sqr((12*x), если без игрика, а как игрик впихнуть не могу
var
i: integer;
a: array[1..20] of integer;
function fn(x: integer): integer;
begin
if x mod 10 = 4 then fn: =x div 2
else fn: =x;
end;
for i: =1 to 20 do
readln(a[i]);
a[i]: =fn(a[i]);
writeln(a[i]);
end.
нельзя, ведь текст отсканирован а не скопирован!
Популярные вопросы