4 года назад

Решите пожалуйста номер 6 срочно нужно

Знания

Информатика

1 ответ:

Мария Малькова [22]4 года назад

0 0

№6 Ответ : 3) 4 это же легко! ну может для тебя и нет но.. хз)0)

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

Сообщение о том, что Катя живет в третьем подъезде, несет 3 бита информации. Сколько подъездов в доме?

Владимир СПб

N=2^i
n=2^3
n=8 (подъездов)
n- количество подъездов

0 0

4 года назад

На вход программы подаются произвольные алфавитно-цифровые символы. Прогрмирование Паскаль ABC

Лизка [7]

Var
a : array ['a'..'z'] of integer;
c : char;

begin
for c := 'a' to 'z' do
a[c] := 0;
read(c);
while c <> '.' do
begin
if (c >= 'a') and (c <= 'z') then
a[c] := a[c] + 1;
read(c)
end;
for c := 'a' to 'z' do
if a[c] <> 0 then
writeln(c,a[c])
end.

0 0

3 года назад

Чувствительность на мышки 2000, а в приложении 24. Мне нужно сделать в приложении чувствительность такую же, но на другой мышки

Дима9696

Поставь чувствительность мышки (я так поняла ты о DPI, CPI(одно и то же)) на 100

0 0

4 года назад

ИНФОРМАТИКА 8 КЛАСС ПОМОГИТЕ НА УРОВНЕ 8 КЛАССА! Составьте алгоритм возведения четного числа в квадрат ,а нечетного к куб. С пом

quelle999

Var a:integer;
begin
readln(a);
if a mod 2=0 then a:=a*a
else a:=a*a*a;
writeln('a = ',a);
end.

Пример:
18
a = 324

0 0

4 года назад

Дано натуральное число. Требуется разделить запятыми тройки его цифр (считая справа). Вводится одно натуральное число, не превыш

гоба

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
var s:=ReadlnString(' >');
Write('-> ');
var n:=s.Length;
if n<4 then Writeln(s)
else
 while true do begin
 var p:=n mod 3; p:=p=0?3:p;
 Write(s[:p+1],',');
 s:=s[p+1:];
 n:=s.Length;
 if n=3 then begin Writeln(s); Exit end
 end
end.

Примеры
> 1231423454123112313211
-> 1,231,423,454,123,112,313,211

> 123456
-> 123,456

> 13
-> 13

0 0

4 года назад

Прочитать ещё 2 ответа