В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
alileman
alileman
23.03.2023 07:07 •  Информатика

Написать программу в Паскале. Пусть дана последовательность из 100 различных чисел. Найдите среднее арифметическое чисел этой последовательности, расположенных между максимальными и минимальными числами (в сумму включить и оба этих числа)

Показать ответ
Ответ:
Mad1nka
Mad1nka
17.04.2020 04:02

81

Объяснение:

1) 1 часть идентификатора состоит из 10 заглавных латинских букв. Всего латинских заглавных букв 26 => N=26

26 <= 2^i => i = 5 бит - объём, занимаемый одним символом

I (1 части) = 5 бит * 10 букв (из которых состоит код) = 50 бит

2) N = 99999

99999 <= 2^i => i = 17 бит - объём, занимаемый числом в идентификаторе

3) I (одного идентификатора без доп.информации) = 50 бит + 17 бит = 67 бит = 9 байт

I (одного идентификатора c доп.информации) = 9 + 13 = 22 байта

4) n = 1800/22 байта = 81 пользователей

0,0(0 оценок)
Ответ:
liskotovich
liskotovich
03.07.2022 12:23

1)

Program Pr1;
uses crt;
var stroka:string;
i,k:integer;
Begin
clrscr;
writeln('Vvedite chislo');
readln(stroka);
k:=0;
for i:=length(stroka) downto 1 do if stroka[i]='3' then k:=i;
writeln(k);
end.

2)

Program Pr2;
uses crt;
var stroka:string;
i,k,x,y:integer;
Begin
clrscr;
readln(stroka);
y:=0;
for i:=length(stroka) downto (length(stroka)-1) do begin
val(stroka[i],k,x);
y:=y+k;
end;
writeln(y);
end.

 3)

Program Pr2;
uses crt;
var stroka:string;
i,y,k:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do begin
val(stroka[i],y,k);
mas[i]:=y;
end;
k:=0;
for i:=1 to length(stroka) do if mas[i]>k then k:=mas[i];
writeln(k);
end.

4)

Program Pr2;
uses crt;
var stroka,tmp:string;
Begin
clrscr;
readln(stroka); {1-oe predlojenie}
readln(tmp); {2-oe predlojenie}
delete(stroka,1,length(tmp));
stroka:=tmp+stroka;
writeln(stroka);
end.

5)

Program Pr2;
uses crt;
var mas:array[byte] of integer;
i,n,f:integer;
Begin
clrscr;
readln(n);
mas[1]:=1;
mas[2]:=1;
for i:=3 to n do mas[i]:=mas[i-1]+mas[i-2];
writeln(mas[n],' a'); {a}
readln;
for i:=1 to n do write(mas[i],' '); {á}
f:=0; {â}
readln;
for i:=1 to n do f:=f+mas[i];
if f mod 2=0 then writeln('TRUE')
else writeln('FALSE');
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота