Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
соня230403
26.12.2020 22:57 •
Информатика
Напишите программу, которая вводит строку и выводит ее, сокращая каждый раз на 1 символ с конца строки до тех пор, пока в строке не останется 1 символ. , , . жду вашей .)
Показать ответ
Ответ:
MrMut222
20.06.2020 01:03
var s : string;
begin
while (length(s)>0) do begin
s:=copy(s,1,length(s)-1);
write(s);
writeln;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Kerbenbaeva2003
30.03.2021 22:16
Часто ли вы стучали в личные сообщения (или кричали под окнами) своему другу, пока он мдленно-медленно собирается пойти с вами в кино? Раз пять напомнишь, пока выйдет... И...
Arslanisyan
10.06.2022 18:44
Роботтехникамен айналысатын әрбір адам геометриялық фигура лардың қасиеттерін жақсы білуі керек. Төменде берілген тақырыпбойынша интернеттен ақпарат ізде. Берілген сұрақтар...
PIPL34linka
05.12.2022 08:04
Определи, является ли высказыванием: 8 + 11,3...
KristinaZenchenko
02.06.2021 20:53
Написать на pascal нужен только исходный код...
уютка
03.05.2020 04:14
Нужно ли соблюдать последовательность столбцов при сортировке?...
DoVInterER
27.03.2022 09:13
Найдите неизвестный член пропорции . 4,8/х=1,6/7. х/1,9=66,5/13.3...
mokovanins
27.03.2022 09:13
Решите уравнение а)1/2x+3=4x б)16x^2-81=0...
лиана249
27.03.2022 09:13
Написать сочинение на тему почему ты выбрал проыессию лаборатоную диагностику...
Милана3091
27.03.2022 09:13
Какова длина ломаной сdef если cd=8 мм de=10 мм и ef= 14 мм...
Ліка2006
27.03.2022 09:13
Напишите : посмотрите какое сегодня небо. и опишите его....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
while (length(s)>0) do begin
s:=copy(s,1,length(s)-1);
write(s);
writeln;
end;
end.