М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Решить, программа паскаль 1. для чисел равных 5 от 1 до n вывести квадрат числа,для остальных вывести "не кратно 5" 2.посчитать сколько из 15 произвольно веденных чисел,чисел больше 15 3. для любого количества произвольных чисел найти сумму положительных

👇
Ответ:
alecsYouTube
alecsYouTube
02.08.2021
{Кратность 5ти}
var i, i1: integer;
begin     
 readln(i1);     
 for i:=0 to i1 do         
 if (i mod 5 = 0) then           
  writeln(i, ': ', sqr(i))         
 else             
  writeln(i, ': не кратно пяти');
end.

{ Больше 15-ти }
var i, b, c: integer;
begin     
for i:=1 to 15 do     
begin         
readln(b);         
if (b > 15) then             
c := c + 1;     
end;     
writeln(c);
end.

const N=5; //Любое кол-во:)
var a: real;   
i, count: integer;
begin     
for i:=0 to N-1 do     
begin         
readln(a);         
if (a > 0) then             
count := count + 1;     
end;     
writeln(count);
end.
4,6(47 оценок)
Открыть все ответы
Ответ:
лика03481
лика03481
02.08.2021
Const   n = 5; var   i: integer;   a: array[1..n * 2 + 1] of integer; begin   writeln('исходный массив: ');   for i : = 1 to 2 * n do   begin       a[i] : = random(99) + 1;       write(a[i] : 5);   end;   for i : = 2 * n + 1 downto n + 1 do       a[i] : = a[i - 1];   a[n + 1] : = 0;   writeln();   writeln('полученный массив: ');   for i : = 1 to 2 * n + 1 do       write(a[i] : 5); end.
4,8(26 оценок)
Ответ:
pavdora073539
pavdora073539
02.08.2021

ответ: 3

Объяснение:

Тот факт, что код удовлетворяет условию Фано, означает, что ни одно кодовое слово не является началом другого (например, т.к. для кодирования буквы А используется цифра 0, то никакое другое кодовое слово не может начинаться с нуля, ведь тогда кодовое слово для А будет началом другого кодового слова).

Итак, кодовые слова для букв Б, В и Г не могут начинаться с нуля. Так как код двоичный, все они начинаются с единицы. Наша задача — найти три последовательности, которые начинаются с единицы и при этом имеют наименьшее возможное число символов (цифр).

Закодировать какую-либо букву одним символом, единицей, мы не можем, потому что в этом случае уже не удастся закодировать другие буквы (из-за условия Фано; к тому же, буква, закодированная одной единицей, была бы началом кодового слова для Б (110), что опять не удовлетворяет условию Фано).

Если использовать кодовые слова длиной в 2 символа, получится закодировать только две буквы, ведь таких кодовых слова всего два: 11 и 10. Составить третье кодовое слово не позволит условие Фано.

Если используем кодовые слова длиной в 3 символа, сможем закодировать все буквы, например, присвоить букве Г кодовое слово 111, а букве Б, как и сказано в условии, кодовое слово 110, и тогда свободные слова ещё останутся. Но в этом случае остаётся ещё одно кодовое слово из двух символов, не являющееся началом другого, — 10 (т.к. А = 0, Б = 110, Г = 111). Присвоим это кодовое слово оставшейся букве В.

Итак, присвоить всем трём буквам (кроме А) кодовые слова длиной 2 символа невозможно, а если все три кодовых слова будут длиной в 3 символа, то их последовательность не будет иметь наименьшее число символов (как нужно в задании), поэтому вариант, когда одна буква закодирована двумя символами, а две оставшиеся — тремя, даёт при сложении числа символов последовательность наименьшей длины.

Получается, что длины кодовых слов букв:

А — 1 символ (0)

Б — 3 символа (110)

В — 2 символа (10)

Г — 3 символа (111)

При кодировании последовательности из этих букв (например, АБВГ, порядок в данном случае не важен) каждая буква заменяется её кодовым словом.

Значит, число символов в последовательности равно общему количеству символов во всех четырёх кодовых словах и составляет

1 + 3 + 2 + 3 = 9 (символов).

ответ: 3

4,6(72 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ