Задать вопрос!

Задать вопрос!

Все категории

таня юдина

2 года назад

9

))))))))))))?

?????-+;;(

Информатика

1 ответ:

sergius22 года назад

0 0

Ответ: в
-------------

Читайте также

Сколько времени потребуется для передачи файла объемом 225 Кбайта,если скорость передачи 14400 бит/с (Можно подробно пожалуйста

Алексей66 [9]

225Кбайта=1,8*10 в 6 степени (1800000)

1800000/14400=125с

125с=2минуты 5 с

0 0

4 года назад

Заполни пропуски в программе. Вывод на экран кубов чисел от 11 до 4. var :integer; begin for i:= downto do writeln (i*i*i); rea

Милый карапуз [14]

Ответ:

var i : integer;

begin

for i:= 11 downto 4 do begin

writeln (i*i*i);

end;

readln;

end.

Объяснение: с downto

0 0

4 года назад

Эльфийский алфавит содержит 8 символов. Каков информационный вес символа этого алфавита?

Папарун [38]

Log(2)8 = 3 бита (2^3 = 8)

0 0

1 год назад

найдите количество элементов массива, которые больше заданного числа а, вводимого с клавиатуры

Irina 65 [4]

program picaso; uses crt;
type vector=array[1..100] of integer;
var a:vector;
   i,n,k,p:byte;
begin clrscr; Randomize;
   writeln('n:');readln(n);
   writeln('a:');readln(p);
   for i:=1 to n do
   begin
       write('элемент ',i,' : ');
       readln(a[i]);
   end;
   for i:=1 to n do
       write(a[i],' ');
   k:=0;
   for i:=1 to n do
   begin
       if a[i] > p then inc(k);
   end;
   writeln('количество элементов массива, которые больше заданного числа',p,' : ',k);
end.

0 0

4 года назад

Написать программу нахождения количества чётных чисел в массиве случайных чисел

СергейВанин

//Pascal ABC.NET v3.0 сборка 1111

Const
n=5;

Var
ar:array[1..n] of integer;
i,k:integer;
begin;
randomize;
k:=0;
writeln('Array:');
for i:=1 to n do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if not odd(ar[i]) then inc(k);
end;
writeln;
write('Res=',k);
end.

0 0

4 года назад