Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Мадам44444444
26.10.2021 17:25 •
Информатика
На вході маємо число а, яке буде запитуватися у користувача. Программа має порахувати результат на екран: а. (а+5)*33/7. Б. (5а-12)/а. В. (6-а)52+а
👇
Увидеть ответ
Открыть все ответы
Ответ:
AlinaTishka
26.10.2021
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var s:='ДОСТОПРИМЕЧАТЕЛЬНОСТЬ';
// 1 3 5 7 9 1 3 5 7 9 1
// 2 4 6 8 + 2 4 6 8 +
var n:=Length(s);
var w:=Concat(Copy(s,6,5),s[4],s[12]); Write(w,' ');
w:=Concat(s[7],s[12],Copy(s,1,2),Copy(s,n-2,3)); Write(w,' ');
w:=Copy(s,11,6); Insert(Concat(s[8],s[4]),w,2); Write(w,' ');
w:=Copy(s,9,8); Insert(Concat(s[8],s[4]),w,4); Delete(w,4,1);
Write(w,' ');
w:=Concat(Copy(s,13,2),s[4],s[7],s[12],s[1],s[n]); Write(w,' ');
w:=Concat(Copy(s,6,5),s[7]); Write(w,' ');
w:=Concat(s[3],Copy(s,11,2),Copy(s,n-2,3),s[10]); Writeln(w)
end.
Результат
ПРИМЕТА РАДОСТЬ ЧИТАТЕЛЬ МЕЧТАТЕЛЬ ТЕТРАДЬ ПРИМЕР СЧАСТЬЕ
4,7
(67 оценок)
Ответ:
аза101
26.10.2021
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var s:='ДОСТОПРИМЕЧАТЕЛЬНОСТЬ';
// 1 3 5 7 9 1 3 5 7 9 1
// 2 4 6 8 + 2 4 6 8 +
var n:=Length(s);
var w:=Concat(Copy(s,6,5),s[4],s[12]); Write(w,' ');
w:=Concat(s[7],s[12],Copy(s,1,2),Copy(s,n-2,3)); Write(w,' ');
w:=Copy(s,11,6); Insert(Concat(s[8],s[4]),w,2); Write(w,' ');
w:=Copy(s,9,8); Insert(Concat(s[8],s[4]),w,4); Delete(w,4,1);
Write(w,' ');
w:=Concat(Copy(s,13,2),s[4],s[7],s[12],s[1],s[n]); Write(w,' ');
w:=Concat(Copy(s,6,5),s[7]); Write(w,' ');
w:=Concat(s[3],Copy(s,11,2),Copy(s,n-2,3),s[10]); Writeln(w)
end.
Результат
ПРИМЕТА РАДОСТЬ ЧИТАТЕЛЬ МЕЧТАТЕЛЬ ТЕТРАДЬ ПРИМЕР СЧАСТЬЕ
4,5
(45 оценок)
Это интересно:
П
Питомцы-и-животные
04.01.2023
Как растить котят: основные правила и советы...
М
Мир-работы
31.01.2020
Как собрать детскую кроватку: подробная инструкция...
С
Стиль-и-уход-за-собой
13.10.2021
Как изменить стиль исходя из вашего бюджета...
О
Образование-и-коммуникации
23.09.2021
Как построить гистограмму: подробное руководство...
К
Компьютеры-и-электроника
25.01.2020
Простой способ сохранить вложение на компьютер...
В
Взаимоотношения
21.11.2020
Страх перед длинными словами: как правильно произносить сложные термины?...
С
Семейная-жизнь
27.01.2022
Как подростку справиться с потерей отца: советы от психологов...
В
Взаимоотношения
23.02.2021
Как ответить тому, кто ненавидит вас: советы психологов...
20.12.2022
Как поцеловать девушку в кино (для учеников средней школы)...
17.09.2022
Как ухаживать за мягкими игрушками...
Новые ответы от MOGZ: Информатика
raykova568
19.11.2021
Заполнить массив из 10 элементов случайными значениями в диапазоне от -150 до 150 1) вывести наименьший элемент массива 2) вывести количество нечетных элементов и...
nuriksabirjan
22.12.2021
1. в абзаце можно отдельные документа строки слова и символы? да или нет ? 2. издательские системы применяются для подготовки буклетов и брошюр ? да или нет ? 3....
9uh9ev2
08.05.2022
Известны результаты теста по информатике ( от 0 до 22). отметка 3 ставиться если было получено от 5 до 11 , 4 - от 12 до 17 и 5 - от 18 и выше, 2 - меньше 5 . определить...
PleaseHelpMe4
09.01.2021
Запишите 32-битный ip-адрес в виде четырех десятичных чисел разделенных точками: 1)11110100011000000110011001100 2)10011101110101101101110001011...
katjasumigai
09.01.2021
Определить мощность алфавита (количество бит на один символ) для хранения в компьютере результатов измерения температуры, измеряющейся от минус до плюс 40 градусоов...
Motya232
28.07.2021
1)перечислите традицронныйтехнологии документов. 2)какой твердый носитель иныормации используют традиционные технологии...
Акжан1111111
22.08.2020
Почему командный пользовательский интерфейс не широкому распространению компьютерной техники? почему специалисты до сих пор используют интерфейс командной строки?...
56анна2141
22.08.2020
Как можно выполнить вставку текста с сайта в презентацию, избежав со-хранения ненужного форматирования? опишите последовательность действий....
Elinak132
06.09.2021
Как можно редактировать текст, который уже зафиксирован в растровом рисунке...
geralis728p0bgjl
13.05.2022
40 ! объясните, , как определить каков размер книги, мне именно вычисления нужны ( как это делается) страниц: 141 строчек на одной странице: 22 символов в одной строчке:...
MOGZ ответил
А болады Себеп сен оқыған жоқпын...
3. Отрезок АВ разделили точкой С(4;-3) пополам. Найти координаты...
Овца стоит перед парикмахерской ис завистью погляд..-вает на стригущуюся...
На стороне АД параллелограмма АВСД взята точка Е так, что АЕ =...
3. Какие два семечка легли в одну ямку в сказке-были «Кладовая...
если зделаете одно задание...
7. Мәтінге сүйеніп ақпараттың дұрыс/бұрыстығын тексеріңіз. Проверьте...
Как Вы понимаете значение слова ДРУЖБА? Сформулируйте и прокомментируйте...
1.posmrad srunaranno Tente. Talo ons akreno rearre Bens TO OVENS...
На какие виды делятся жанр оперы исходя из темы и языка ...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
Внимание! Если программа не работает, обновите версию!
begin
var s:='ДОСТОПРИМЕЧАТЕЛЬНОСТЬ';
// 1 3 5 7 9 1 3 5 7 9 1
// 2 4 6 8 + 2 4 6 8 +
var n:=Length(s);
var w:=Concat(Copy(s,6,5),s[4],s[12]); Write(w,' ');
w:=Concat(s[7],s[12],Copy(s,1,2),Copy(s,n-2,3)); Write(w,' ');
w:=Copy(s,11,6); Insert(Concat(s[8],s[4]),w,2); Write(w,' ');
w:=Copy(s,9,8); Insert(Concat(s[8],s[4]),w,4); Delete(w,4,1);
Write(w,' ');
w:=Concat(Copy(s,13,2),s[4],s[7],s[12],s[1],s[n]); Write(w,' ');
w:=Concat(Copy(s,6,5),s[7]); Write(w,' ');
w:=Concat(s[3],Copy(s,11,2),Copy(s,n-2,3),s[10]); Writeln(w)
end.
Результат
ПРИМЕТА РАДОСТЬ ЧИТАТЕЛЬ МЕЧТАТЕЛЬ ТЕТРАДЬ ПРИМЕР СЧАСТЬЕ