8мегабит= 8000000 бит/с:8бит(байт)=1000000байт/с=1Мбайт/с
Соответственно 8с.
Program primer;
const n=5;
var a:array[1..n] of integer;
i:integer;
begin
writeln ('vvedite massiv');
for i:=1 to n do
readln( a[i]);
for i:=1 to n do
if (a[i] mod 2=0)>(a[i] mod 2=1) then
writeln ('ceotnih cisel bolise')
else
writeln('neceotnih cisel bolise');
readln;
<span>end.</span>
Значение Y в операторе не меняется, поэтому Y как было, так и осталось = 28. Значение Х можно найти, рассуждая так: к какому числу надо прибавить 28 чтобы получилось 2? Очевидно, что это число = -26
Ответ: x=-26, y=28
Var K,n,i: integer;
begin
writeln('Введите число');
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
readln
end.
Выбирайте лучший ;)
На картинке все показано.
Ответ: 100010