Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nabludatel00
02.05.2020 05:57 •
Информатика
Написать рекурсивную программу вывода на экран следующей картинки: 1111111111111111 (16 раз) 222222222222 (12 раз) 33333333 (8 раз) 4444 (4 раза) 33333333 (8 раз) 222222222222 (12 раз) 1111111111111111 (16 раз)
Показать ответ
Ответ:
muzaparovakamil
31.08.2020 12:55
Procedure p(k:integer);
var i:integer;
begin
for i:=1 to 20-4*k do write(k);
writeln
if k<4 then
begin
p(k+1);
for i:=1 to 20-4*k do write(k);
writeln;
end;
end;
begin
p(1);
end.
Результат:
1111111111111111
222222222222
33333333
4444
33333333
222222222222
1111111111111111
0,0
(0 оценок)
Популярные вопросы: Информатика
eva77772
09.01.2021 09:26
Локальная сеть, все компьютеры в которой равноправны, - это: 1) региональная сеть 2) сеть с выделенным сервером 3) Интернет 4) одноранговая сеть 3.Дан фрагмент электронной таблицы:...
elenalev222016
09.01.2021 09:26
А. Найдите ошибки и запишите значение переменной s, полученное в результате работы следующей программы. var s,k: integer; s := 0; for n := 4 to 7 do s := s + 8; writeln(s); end....
EzVikaEz
17.02.2023 03:29
Для перемещения в начало следующей страницы необходимо использовать CTRL+PAGE UP CTRL+PAGE DOWN ALT+CTRL+PAGE UP CTRL+END CTRL+HOME ALT+CTRL+PAGE DOWN...
sosisckalizcka
17.02.2023 03:29
1. В операционной системе Windows создайте на рабочем столе папку Archives. Создайте в этой папке еще две папки Pictures и Documents. 2. Найдите и скопируйте в папку Pictures...
kira9let
11.01.2022 21:23
Створити проект для знаходження х з рівняння ах=б інформатика 8 клас...
ЧернаяРадуга
25.07.2021 04:12
Напишите программу, которая получает с клавиатуры натуральное число и вычисляет целый квадратный корень из него – наибольшее число, квадрат которого не больше данного числа. ВНИМАНИЕ!...
gazizullinnafi
21.04.2023 07:52
За деревней весело играла кошка с котятами...1.основная мысль текста 2. Стиль текста ...
kira309
04.07.2020 08:25
Reorder the words to make questions ...
DMN1111
04.07.2020 08:25
рассказ Судьба человека актуален для нашего времени,потому что......
nnatasha0981
24.10.2022 19:01
Расположите события в хронологической последовательности.1)Захват крестоносцами Изборска и Пскова.2)Освобождения Князем Александра Ярославичем Пскова.3)Образования Ливонского...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i:integer;
begin
for i:=1 to 20-4*k do write(k);
writeln
if k<4 then
begin
p(k+1);
for i:=1 to 20-4*k do write(k);
writeln;
end;
end;
begin
p(1);
end.
Результат:
1111111111111111
222222222222
33333333
4444
33333333
222222222222
1111111111111111