tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу,по которой
Составьте программу,по которой вводится произвольное слово.выбрать число повторов.вывести число на экран лесенкой(со сдвигом вправо).без использования вложенного цикла.
OLYA332321
1 24.08.2019 14:50
0
Ответы
nagibala09Никичан
05.10.2020 16:49
1)
var s:string; i:integer;
begin
write('Слово: ');
readln(s);
for i:=1 to length(s) do
writeln(' ':i,s[i]);
end.
Пример:
Слово: лесенка
л
е
с
е
н
к
а
2)
var s:string; n,i:integer;
begin
write('Слово: ');
readln(s);
write('n = ');
readln(n);
for i:=0 to n-1 do
writeln('':i*length(s),s);
end.
Пример:
Слово: лесенка
n = 4
лесенка
лесенка
лесенка
лесенка
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ecpert
12.07.2019 19:42
Впрограмме используется одномерный целочисленный массив а с индексами от 0 до 4. значения элементов равны 5, 7, 6, 4, 10 соответственно, т.е. a[0] = 5, a[1] = 7 и т.д....
avfvffg
12.07.2019 21:10
Размер одного кластера диска 512 байт.на диск записали файлы размером 4264 байт и 100 кбайт. сколько кластеров займут эти файлы? варианты ответов : 50 153 209 315...
urubkovaanna
12.07.2019 21:10
Сообщение записанное с 2-х символьного алфавита, содержит 64 символа. сколько байт информации оно содержит ?...
karashina2
25.08.2019 14:20
На фармацевтичній фірмі було виготовлено а таблеток від кашлю, які автомат розфасував порівну в b флаконів. розробіть програму визначення кількості таблеток, розфасованих...
konuj
21.07.2019 12:10
Напишите программу определяющую принадлежит ли в веденное число игровому кубику на языке паскаль надо...
lanakalina
21.07.2019 12:10
На диске d: необходимо выполнить следующую последовательность действий: 1) создать каталог мин; 2) открыть каталог мин; 3) создать каталог 1; 4) открыть каталог 1; 5)...
Кристина1902
26.01.2020 18:04
Характеристика бешеного бельченка 4 й класс украинская...
Dhcfyfhffdh
26.01.2020 18:04
Написать на на тему topic about giving advice for lossing ! ...
ostapenkonatasha
26.01.2020 18:04
43.найдите координаты вектора с, если с =-1/3 векторb и векторb(-2; 4; 0)....
sok2710
26.01.2020 18:04
2. выберите ряд элементов, в котором усиливается присоединять электроны: а) si - p - s - ci; б) f - o - n - c....
Популярные вопросы
Вкаких единицах измеряют заготовленню древесину...
2
Перечисли захвата пищи одноклеточным без постоянной формы...
3
Для кого характерно наличие двух пар усиков: насекомых многоножек...
1
Конспект по биологии 5 класс методы изучения природы...
2
Краткий рассказ о городе саратов 10-12 предложений...
3
Морфологический разбор существительного буря воет...
3
Какую функцию выполняет рост и развитие?...
2
Напишите программу,которая вводит с клавиатуры два целых числа-длины...
3
15 плюс 3 икс плюс 6 минус 6 икс равно 2 икс плюс 11...
1
Внимательно рассмотри портреты великих деятелей искусства. портрет...
3
var s:string; i:integer;
begin
write('Слово: ');
readln(s);
for i:=1 to length(s) do
writeln(' ':i,s[i]);
end.
Пример:
Слово: лесенка
л
е
с
е
н
к
а
2)
var s:string; n,i:integer;
begin
write('Слово: ');
readln(s);
write('n = ');
readln(n);
for i:=0 to n-1 do
writeln('':i*length(s),s);
end.
Пример:
Слово: лесенка
n = 4
лесенка
лесенка
лесенка
лесенка