Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Nolly567
20.06.2021 02:20 •
Информатика
Пользователь вводит целое положительное число. вывести на экран символы "*" таким образом: в первой строке количество "*" равно последней цифре числа, в второй - предпоследней и так далее. например, для числа 351 получим следующую картинку: * ***
Показать ответ
Ответ:
Сашечка11
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 оценок)
Популярные вопросы: Информатика
люба358
27.11.2022 05:45
Определи расстояние на плоскости между двумя точками с заданными координатами m1(x1,y1)и m2(x2,y2) . ответ введи целым числом. если координаты точек: x1=1; y1=5x2=9; y2=12 . ответ...
тата270
10.04.2023 13:31
На компакт-диске записана видеозапись в формате MPEG4 - сжатый формат. Размер файла 694 Мбайт (728 268 800 байт). Параметры видео: разрешение 480x320, глубина цвета 24 бит, 183046...
kistinakravcenk
30.08.2022 12:05
Жасулан создал проект таблица умножения...
nastenka082004
27.12.2022 05:48
Как называется система, включающая в себя другую систему...
Dragolord
27.12.2022 05:48
Нужно создать три программы в турбо паскале. 1. сумма чисел a+b 2.частное чисел x; y; 3.произведение чисел a; b; c; d;...
Merser2212
27.12.2022 05:48
2.как исследовать свойства диска или файла? ответить на вопрос...
R1net1
27.12.2022 05:48
1.в системе счисления с некоторым основанием число десятичное 25 записывается как 100. найдите это основание. 2.укажите, сколько всего раз встречается цифра 1 в записи чисел 12,...
оля1874
27.10.2020 04:23
Информатика 10 класс. Написать программу в Pascal Комбинированных тип данных. Задача: Прочитать информацию о 8 книгах(название;автор;цена) напечатать название и автора самой дорогой...
Whitestar123
02.09.2022 08:23
В какой строке все прилагательные относительные? 1) серебряный, маленький, медвежий 2) прохладный, европейский, волчий 3) верхний, московский, глиняный...
lilyavenkova
02.09.2022 08:23
Расскажите не менее чем в 6 предложениях о преимуществах и недостатках разделения труда на примере работы заводов Генри Форда...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
read(a);
while(a <> 0) do
begin
for i := 1 to a mod 10 do write('*');
writeln();
a := a div 10;
end;
end.