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

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

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

4 года назад

6

Хелп , плеаз (((((((

Хелп , плеаз (((((((

Информатика

1 ответ:

Зав складом [120]4 года назад

0 0

Ответ:

1. 105 2. 11 3. 2 5. 0 4. не уверен но вроде это 47.

Объяснение:

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

Сколько байтов находится в слове ИНФОРМАЦИЯ, при условии, что одна буква равна 8 бит

Дарья Соколенко

В одном байте 8 бит. В слове информация 10 букв. Соответственно 10 байтов.

0 0

3 года назад

Найдите произведение четных чисел, не привыкающих заданное натуральное число(N)

Tomasik [729]

Var n,i,p:integer;
begin
p:=1;
readln(n);
for i:=1 to n do
if i mod 2 = 0 then k:=k*i;
writeln(k);
end.

0 0

4 года назад

Попробуйте уговорить одноклассника назвать свой пароль. Плиз помогите это срочно:-(

Allexandra [1.8K]

Он привязан к батарее ты с битой говоришь:"Быстро пароль, с*ка".

0 0

4 года назад

СРОЧНО 30 БАЛЛОВ!!! ИНФОРМАТИКА В КАРТИНКЕ УСЛОВИЯ!!!

08051991

F1=ВП ПР ВП ПР
F2=ВП ПЛ ВП ПЛ

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 год назад