4 года назад

РЕБЯТ , помогите пж с информатикой!!Я не очень понимаю..

Знания

Информатика

1 ответ:

Varian1 [7]4 года назад

0 0

2 2 2 1 2 - вот программа получения из 1 число 51
получаются последовательно числа 3-5-7-49-51

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

Написать программу на паскале которая определяет, каков процент пробелов во введенном тексте.

Xranitel [78]

Var
s: string;
i, n, k: integer;

begin
writeln('Введите текст');
readln(s);
n := Length(s);
k := 0;
for i := 1 to n do
if s[i] = ' ' then k := k + 1;
writeln('Количество пробелов в тексте- ', k)
end.

Тестовый пример:

Введите текст
А роза упала на лапу Азора, а тут ДВА пробела , а тут вообще пять: : Все!
Количество пробелов в тексте- 21

0 0

4 года назад

1. 120бит=.......байт 2.4,6мбайт=...........байт 3.4гбайт=..........кбайт 4.7байт=.........бит 5.1/1кбайт=.........бит? Помогите

Androsor

1. 120 бит = 120/8 байт = 15 байт
2. 4,6 мбайт = 4,6*1024*1024 байт = 4823449.6 байт
3. 4 гбайт = 4*1024*1024 кбайт = 4194304 Кбайт
4. 7 байт = 7*8 бит = 56 бит
5. 1/1кбайт = 1*1024*8 бит = 8112 бит

0 0

4 года назад

Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной максимальное из этих значений,

biruli

0 0

4 года назад

1. как называется программа, которая работает в разных операционных системах? 2. Отметьте все виды файлов, которые можно назвать

Станислав Валерьевич

Ответ:

1. Кроссплатформенная

2. - текст с картинками

- цифровой звук

- видеофильм

Объяснение:

0 0

2 года назад

В одномерном массиве размером N определить среднее значение элементов. Найти индекс элемента массива наиболее близкого к среднем

Bibbi [14]

Const
K = 13;
Var
A:array[1..K] of integer;
i,n:integer;
Sr,d:real;
Begin
For i:= 1 to K do
 Begin
 A[i]:=random(21)-10;
 Write(A[i],' ');
 Sr:=Sr+A[i];
 End;
WriteLn;
Sr:=Sr/K;
n:=1;
d:=abs(Sr-A[n]);
For i:= 2 to K do
 Begin
 if abs(A[i]-Sr)<d then
 Begin
 n:=i;
 d:=abs(Sr-A[n]);
 End;
 End;
WriteLn('Sr = ',Sr);
WriteLn('Номер ближайшего к среднему арифметическому: ',n);
End.

0 0

3 года назад

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