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

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

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

1 год назад

14

Последовательно по одному вводятся n целых чисел x, получить сумму тех чисел последовательности, которые удовлетворяют условию |

xᵢ|меньше i^2.
Сделать схему

Информатика

1 ответ:

всяправда [2.6K]1 год назад

0 0

Блок-схема - в прилагаемом файле.

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

5. С клавиатуры вводится число n, а за ним массив целых чисел из n элементов. Необходимо написать процедуру, которая ищет и выво

dima1892

Var
a:array[1..100000] of integer;
b:array[0..9]of boolean;
n,i:integer;

Procedure Two_Max;
var
cnt, i:integer;
begin
For i:= 1 to n do
    b[a[i]]:= true;
For i:= 9 downto 0 do
    if (b[i] = true)and(cnt < 2) then
      begin
        inc(cnt);
        Write(i, ' ');
      end;
end;

begin
Read(n);
For i:= 1 to n do
Read(a[i]);
Two_Max;
end.

0 0

4 года назад

Сообщение, записанное буквами из 16-символьного алфавита, содержит 74 символа. Какой объём информации оно несёт? ПОМОГИТЕ

ЗамирКазань

16 символов - 4 бита.
4*74 = 296 битов.
296/8=37 байт

0 0

4 года назад

34 балла! 2-ой вариант и решение.

png457 [21]

1101100
573
1C9
11001100
242
C7
10111
1114
430
240

0 0

4 года назад

6384 Кбайт — это Мбайт.

Чуприков Максим Б...

6384 Кбайт = 6384/1024 Кбайт = 6,234375 Кбайт

0 0

4 года назад

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

Помогите, пожалуйста! Через паскаль! Тема: «Поиск наибольшего или наименьшего элемента массива» Написать программу, которая опре

Maikl5555 [71]

Var a: array[0..10] of Integer;
i,n,m: Integer;
begin
m:=0;
for i:=0 to 9 do
begin
writeln('Введите ',i+1,' число');
readln(n);
a[i]:=abs(n);
end;
for i:=0 to 9 do
begin
if m<a[i] then m:=a[i];
end;
writeln('Самое большое число в массиве :',m);
end.

0 0

4 года назад