Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
n = 2 # Любое число
m = 5*n**2 + 2/3*n - 2.5 * (n + 5)
program xxx;
var i, n : integer
d : array[1..30] of real;
begin
write ('введите разметность массива n=');
readln(n);
writeln(''введите элементы массива d: ');
for i: =1 to n do
readln(d[i]);
writeln ('исходный массив d: ');
write(d[i]);
if d[i] mod 3 = 0 then d[i]: = 2 * d[i];
writeln ('полученный массив d: ');
readln
end.
7fe=14*16^0+15*16^1+7*16^2=2046 в 10 с/с 2046/2=1023 байт
e=14
f=15
ответ 2
Популярные вопросы