Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Champion30
31.05.2020 04:21 •
Информатика
Пользователь вводит целое положительное число. вывести на экран символы "*" таким образом: в первой строке количество "*" равно последней цифре числа, в второй - предпоследней и так далее. например, для числа 351 получим следующую картинку: * ***
Ответ:
Makcumuluan
19.07.2020 09:18
Var a, i: integer;
begin
read(a);
while(a <> 0) do
begin
for i := 1 to a mod 10 do write('*');
writeln();
a := a div 10;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Vladko1337lol
18.05.2020 10:27
Выполните 2 (п2).программу напишите на языке паскаль.используйте команду array,если можно...
1Booooooooooom1
20.05.2020 22:50
Клиенты приходят за покупками через каждые 30 минут. каждый из них обслуживается 18 минут. первый клиент приходит в 0.0 часов третий клиент покинет магазин ? варианты ответов:...
kurzinovaa
01.07.2021 16:43
Какая основная идея сортировки методом пузырька? 1 ) по очереди сравниваем 1-й элемент со 2-м, затем 2-й с 3-м и т. д. до конца массива. первый элемент — максимальный. 2) по...
PolinaRomanova174
12.03.2022 10:39
Что напечатает программа? pascal ans : = a[1]; tmp : = 1; for i : = 2 to 25 do if a[i] ans then ans : = a[i] tmp : = i; writeln(tmp);...
folaelena1
18.06.2020 22:13
Оценить информационный объем цифрового стерео звукового файла (в килобайтах) длительностью звучания 1 минута при среднем качестве звука (16 битов, 24 кгц)....
apple1345
12.03.2023 19:22
Участок земли прямоугольной формы имеет длину a м и ширину b м. запишите алгоритм определения площади участка, а также длины забора, который потребуется для ограждения участка....
точно2
18.09.2020 21:06
Составить программу ,которая последовательно циклически запрашивает 40 целых положительных чисел и назодит минимальное значение среди чётных чисел. минимальное значение вывести...
клубничка114
19.11.2021 07:38
Посчитать среди 100 вводимых с клавиатуры чисел количество тех чисел ,которые являютс двухзнаяными и ввести это количество на экран...
lesyastruklol
22.02.2023 11:14
Дано натуральное число n. вычислить: p=(1-1\2^2)(1-1\3^2)**(1-1\n^2), где n 2 с# только...
Russiansss
05.10.2021 10:37
Нарисуйте в паскале рисунок и напишите программу...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
read(a);
while(a <> 0) do
begin
for i := 1 to a mod 10 do write('*');
writeln();
a := a div 10;
end;
end.