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

Петя нашел в интернете шифр кодового слова. Шифр получается так: 1. Выбирается кодовое слово, например «хорошо».
2. Убираются копии букв в слове из п. 1, получается «хорш».
3. Затем строится новый алфавит таким образом, что полученное в п. 2 слово записывается в начало нового алфавита, а затем новый алфавит дополняется обычным (из которого исключаются буквы из слова(п. 2)).
а б в г д е ё ж з и й к л м н о п р с т у ф х ц ч ш щ ъ ы ь э ю я
х о р ш а б в г д е ё ж з и й к л м н п с т у ф ц ч щ ъ ы ь э ю я
4. Чтобы закодировать текст, буквы старого алфавита в тексте заменяются на те, что стоят под ними (пробелы и знаки препинания не изменяются). А чтобы раскодировать, буквы нового алфавита в тексте заменяются на те, что стоят над ними.
Например, используя шифрование словом «хорошо», мы можем из фразы «шифр кодового слова» получить «четм жкакркшк нзкрх».
Петя закодировал с данного шифра строку, в итоге получилась строка
«лантэша б мцкшйоя оярнкойсзъб жё».
Для кодирования данной строки Петя выбрал кодовое слово «коммивояжёр»
Восстановите исходную строку и в ответе запишите слова исходной строки через пробел без кавычек и запятых.
БЫСТРЕЕ ОСТАЛОСЬ 10 МИНУТ

👇
Открыть все ответы
Ответ:
kamilakruvetka
kamilakruvetka
26.04.2022
Ты в условном операторе не указал что должно проверяться... И к тому же нет begin и end;. Также переменную t: string; сделай, так как иначе не выйдет.

У тебя:
readln; <- к тому же не указал что надо писать.
if t then <- что это такое? Ошибка.
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;

Должно быть:

program Pr1;

const 
H = 'Здравствуйте, ';
var
a,b,c,d: real;
name, t: string;

Begin
writeln('Введите свое имя:');
readln(name);
writeln(H, name, ', вас приветствует программа-калькулятор квадратного уравнения' );
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;
if d=0 then
begin
writeln ('X1,X2 =', (-b+sqrt(d)/(2*a)));
end;
if d<0 then
begin
writeln ('D<0, корней нет');
end;
if d>0 then
begin
writeln('D = ', b*b-4*a*c);
writeln ('X1 =', (-b+sqrt(d)/(2*a)));
writeln ('X2 =', (-b-sqrt(d)/(2*a)));
end;
writeln ('Хотите воспользоваться калькулятором еще раз? Введите T(Да)\F(Нет)');
readln(t);

t := t.ToLower;

if t = 'да' then
begin
writeln('Введите коеффициент "a"');
readln (a);
writeln('Введите коeффициент "b"');
readln (b);
writeln('Введите коeффициент "c"');
readln (c);
d := b*b-4*a*c;
end
else
за использование!');

if d=0 then
begin
writeln ('X1,X2 =', (-b+sqrt(d)/(2*a)));
end;

if d<0 then
begin
writeln ('D<0, корней нет');
end;

if d>0 then
begin
writeln('D = ', b*b-4*a*c);
writeln ('X1 =', (-b+sqrt(d)/(2*a)));
writeln ('X2 =', (-b-sqrt(d)/(2*a)));
end;
end.
4,5(36 оценок)
Ответ:
ismoilov97
ismoilov97
26.04.2022
При регистрации вы получаете доменное имя третьего уровня. Сайты с подобными доменами индексируются поисковыми системами хуже чем домены второго уровня, и в поисковой выдаче будут представлены на более низких позициях. Стоит помнить об этом, если вы все же планируете использовать свой сайт в коммерческих целях.Низкая скорость загрузки сайта. На бесплатном хостинге количество пользователей ресурсов сервера значительно больше, чем на платном, поэтому в особо нагруженные часы вашему сайту может не хватить ресурсов, что повлияет на скорость его загрузки. Этот фактор также может негативно сказаться на продвижении сайта в поисковых сетях.Отсутствие прав собственника и реклама. Фактически вы не являетесь собственником своего web-ресурса и в худшем случае хостер может заблокировать или удалить его по собственному желанию. Также, как уже было упомянуто выше, хостер имеет право разместить рекламу на вашем сайте.Маленькое дисковое пространство. Для начала работы вам может хватить того объема ресурсов, который предоставляет бесплатный хостинг. Однако, если вам потребуется больше места для ваших файлов, вам придется искать хостинг с большим объемомо ресурсов.При возникновении вопросов по работе вашего хостинга вам, скорее всего, придется решать их своими силами. Техническая поддержка присутствует на бесплатном хостинге, однако время ожидания ответа растягивается на несколько дней, что не допустимо в работе коммерческого проекта.Соответствие системным требованиям. Бесплатный хостинг может не поддерживать различные скрипты языков программирования, необходимых для корректной работы вашего сайта или CMS.
4,4(59 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ