4 года назад

Сколько Мб в 2 ^26 битах

Знания

Информатика

1 ответ:

Viktoriya24114 года назад

0 0

2 ^26=536870912, а потом все что вы делаете на уроке,делите или наоборот

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

Напишите программу которая печатает ваше имя в рамке из звездочекПАСКАЛЬПример ******************* *Витя* ********************

Rydsin

Ответ:

это рамка у меня получилось

Объяснение

procedure Stars(str: integer);

var

i:integer;

begin

for i:=1 to str do

write('*');

end;

0 0

4 года назад

Ввести число С. Определить, есть ли в массиве элемент, равный С. Найти • номер первого такого элемента • номер последнего такого

Андрей Тазов [7]

Var a: array [1 .. 10] of integer;
i, Count, C, tmpLast, tmpFirst: integer;
begin
write('Введите число C: ');
readln(C);
writeln;
for i := 1 to 10 do
begin
    write('a[', i, '] = ');
    readln(a[i]);
    if a[i] = C then
    begin
      Count := Count + 1;
      tmpLast := i;
    end;
end;
writeln;
if (Count = 0) then writeln('В массиве нет числа равное С')
else
begin
    writeln('В массиве нашлось число, равное С');
    if (Count = 1) then
      writeln('Первое и единственное число в позиции a[', tmpLast, ']')
    else
    begin
      i := 0;
      repeat
        i := i + 1;
        tmpFirst := i;
      until (a[i] = C);
      writeln('Первое такое число a[', tmpFirst, ']');
      writeln('Последнее такое число a[', tmpLast, ']');
    end;
end;
readln;
end.

0 0

1 год назад

Дан фрагмент программы в программе «Рисователь». Какой из рисунков соответствует написанному фрагменту?

Натти25

Рисунок номер 4 читай алгоритм снизу в верх а 4 рисунок с середины

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!в барабане для розыгрыша лотереи находится 8 шаров сколько информации содержит сообщение о первом выпа

mari-ya [7]

Количество информации = log(2)8 = 3 бита

0 0

3 года назад

Запишите, что получится в результате работы данной программы. Составьте блок- схему: PROGRAM PRIMER; FAR X,Y:REAL; BEGIN FOR X

Алексей45-2

В коде программы допущен ряд ошибок, верный код вот:
program PRIMER;
var X, Y: INTEGER;
begin for X := 1 TO 3 DO begin Y := 6 DIV (X) + 4; WRITELN('ОТВЕТ ЗАДАЧИ=', Y); end;end.

Результат работы программы:

ОТВЕТ ЗАДАЧИ=10ОТВЕТ ЗАДАЧИ=7ОТВЕТ ЗАДАЧИ=6

0 0

4 года назад