vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.
Ответ дал: Гость
program xxx;
var i, n : integer;
a, s : real;
b : array [1..20] of real;
begin
writeln('введите число а=');
readln(a);
writeln('введите размерность массива n=');
readln(n);
write('введите элементы массива b: ');
for i: =1 to n do
readln(b[i]);
writeln('исходный массив b: ');
for i: =1 to n do
writeln(b[i]);
s: =0;
for i: =1 to n do
if b[i] > a then s: =s+b[i];
writeln('сумма элементов =', s);
readln
end.
Ответ дал: Гость
var
i,n: integer;
a: array [1..100] of integer;
begin
readln(n);
for i: =1 to n do
begin
if i mod 2 =0 then a[i]: =i-3
else a[i]: =i+3;
writeln(a[i]);
end;
end.
Ответ дал: Гость
1)f0=(15*16^1)+(0*16^0)=240 (10 c.c), делим столбиком число 240 на 2 (и так далее продолжаем делить на 2 все частные числа) и записываем остатки с конца и получаем число 11110000(2 c.c)
2)1d4=(1*16^2)+(13*16^1)+(4*16^0)=256+208+4=468 (10 c.c), делим столбиком число 468 на 2 (и так далее продолжаем делить на 2 все частные числа)и записываем остатки с конца и получаем число 111010100 (2 c.c).
Популярные вопросы