Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
софа336
20.12.2021 04:47 •
Информатика
Нужна в паскале запросить у пользователя строку s, сформировать из нее строку s1, переставив символы в строке s местами: первый с последним, второй с предпоследним и т.д. вывести на чистый экран строки s и s1, рядом их длину.
Показать ответ
Ответ:
Bossip
16.08.2020 16:17
Поскольку в Windows-приложениях нет понятия "чистый экран", ввод/вывод был направлен в DOS-окно
// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!
uses Crt;
begin
var s:=ReadlnString('Введите строку');
ClrScr;
var L:=s.Length; Println(s,L);
var s1:=s.Inverse; Println(s1,L)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
olenkakireeva1
21.03.2020 02:17
В чем особенность роботов по сравнению с людьми?...
dynn
11.01.2022 11:35
Соответствие между изображениями символов и кодами символов устанавливается с автофигуры графические схемы шифрование текста кодовые таблицы...
Sausage2281
19.01.2020 09:03
Написати розповідь на тему як я провів вихідні (5-6 речень) уживши у тексті числівники на позначення часу...
Shaxnoza2509
22.07.2020 00:54
Физика, нужно решить задачу, найти СКОРОСТЬ ...
Vrentor
10.09.2020 22:51
Вариант 1. 1. Можно ли в четырехугольник ABCD со сторонами AB=7, ВС=9,CD=8, AD=6 вписать окружность и почему?2. В какой треугольник можно вписать окружность?3. Найти радиус...
аомоомооар
10.09.2020 22:51
2 Look at the answers about John and The Beatles. Complete the questions.1 Who did John live with? He lived with his aunt Mimi?2 How his mother ? She died in a car accident.3...
машунька0811
28.11.2021 08:08
28а+в, если а=497, в=653...
milanavornik
23.07.2021 07:13
Из пункта а в пункт б одновременно выехали два автомобиля скорость первого автомобиля на 28 км/ч меньше скорости второго. Найдите скорость второго автомобиля, если время,...
ппппппп25
04.08.2021 04:18
Якою має бути цікава газета? Складіть рейтинг популярних газет в Німеччині та в Україні. Завдання виконайте в презентації Power Point. Сегодня нужно! На немецком языке...
Nastiya320
16.08.2022 02:39
1. Разом потрібно писати всі слова в усіх рядках, окрім: 1. міні/маркет, супер/шоу, контр/адмірал, перекоти/поле 2. мульт/фíльм, Нац/ба́нк, епідем/ситуáція, Свят/вéчір...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!
uses Crt;
begin
var s:=ReadlnString('Введите строку');
ClrScr;
var L:=s.Length; Println(s,L);
var s1:=s.Inverse; Println(s1,L)
end.