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

Для шифровки каждой буквы используется двузначное число. известно что буква "к" кодируется числом 15. среди слов "торт", "ёжик", "станок", "беседа" есть слова, кодируемые последовательностями цифр 35291815, 303113241115. какая последовательность цифр является кодом слова "китёнок"?

👇
Ответ:
yura204080
yura204080
22.07.2021
15 18 31 35 24 11 15
4,6(99 оценок)
Открыть все ответы
Ответ:
summercik2009oziid6
summercik2009oziid6
22.07.2021
Var
A,B,C:integer;
Begin
C:=365;
Read(A,B);
if A>1 then C:=C-31;
if A=1 then C:=C-B;
if A>2 then C:=C-28;
if A=2 then C:=C-B;
if A>3 then C:=C-31;
if A=3 then C:=C-B;
if A>4 then C:=C-30;
if A=4 then C:=C-B;
if A>5 then C:=C-31;
if A=5 then C:=C-B;
if A>6 then C:=C-30;
if A=6 then C:=C-B;
if A>7 then C:=C-31;
if A=7 then C:=C-B;
if A>8 then C:=C-31;
if A=8 then C:=C-B;
if A>9 then C:=C-30;
if A=9 then C:=C-B;
if A>10 then C:=C-31;
if A=10 then C:=C-B;
if A>11 then C:=C-30;
if A=11 then C:=C-B;
if A>12 then C:=C-31;
if A=12 then C:=C-B;
Write(C);
End.
4,5(18 оценок)
Ответ:
koli17
koli17
22.07.2021
var a, d, count, i: integer;   function CountDay(a: integer): integer; begin   if (a >= 1) then countday := 31;   if (a >= 2) then countday := 28;   if (a >= 3) then countday := 31;   if (a >= 4) then countday := 30;   if (a >= 5) then countday := 31;   if (a >= 6) then countday := 30;   if (a >= 7) then countday := 31;   if (a >= 8) then countday := 31;   if (a >= 9) then countday := 30;   if (a >= 10) then countday := 31;   if (a >= 11) then countday := 30;   if (a >= 12) then countday := 31; end;   begin   count := 0;   write('Введите месяц: ');   readln(a);   write('Введите день: ');   readln(d);   if (a <= 0)or(a > 12)or(d <= 0)or(d > countday(a)) then     writeln('Ошшибка в данных!')   else   begin     for i:=a to 12 do       count := count + countday(i);       count := count - d;       writeln('До нового года осталось ', count, ' дней.');   end; end.
4,4(57 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ