Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
levickai200
10.04.2022 12:05 •
Информатика
Составить программу, которая строит ряд из n знаков "*" , m знаков "! " и n знаков "*" если n
Показать ответ
Ответ:
мик150
21.06.2020 10:22
Program mrs3;
var i,m,n:integer;
begin
writeln('m='); readln(m);
writeln('n='); readln(n);
if m>n then begin
for i:=1 to n do write('*');
for i:=n to m do write('!');
for i:=m downto n do write('*');
end; end.
0,0
(0 оценок)
Ответ:
Ozeplay
21.06.2020 10:22
Var m, n, i: integer;
begin
readln(n, m);
for i := 1 to n do write('*');
writeln;
if (n < m) then
for i := 1 to m do write('!');
end.
По условию так =)
0,0
(0 оценок)
Популярные вопросы: Информатика
Shermetovelyar552
20.04.2020 09:34
Проводите сапоставительный анализ работы процессора с мозгом человека ...
P1wHeNS
07.02.2021 08:00
Вычислить медианы треугольника со сторонами c b a составить блок схему...
Cronus1Oleg
15.02.2022 20:47
Составить программу. в текстовом файле дано произвольное сообщение. вычислить, какое количество информации (в битах) в нем содержится. для этого: • выяснить, в каком алфавите...
санёк1234567817626
23.12.2020 00:56
Дан фрагмент электронной таблицы...
doloasd
02.02.2021 08:52
Кестелік процессор -бұл...
Юлия45684
02.09.2022 02:57
] Даны уравнения: 1) 2х2 - 5х + 9 = 0 2) 3x2 -7 + 4 = 0 уравнение...
Олька1824
30.05.2021 09:33
Запись оформите по образцу: Имя ячейки=Формула (аргументы) 1) Наибольшая стоимость 2) Наименьшая стоимость3) Средняя стоимость...
Focussed
12.06.2022 13:39
Написать программу, которая проверяет, делится ли на 3 целое число, введеное с клавиатуры WPF (!)...
ybrfyjh
03.04.2021 10:03
Для каких из приведённых ниже слов истинно высказывание: НЕ (оканчивается на мягкий знак) И (количество букв чётное)? 1)сентябрь 2)август 3)декабрь 4) май 5)март 2. Для какого...
pomadaa
21.02.2021 17:43
Постройте таблицы истинности для следующих логических выражений: A & (A v B); B & (AvA ̅); B & (A v B v C); (AvB ̅vC) ̅....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,m,n:integer;
begin
writeln('m='); readln(m);
writeln('n='); readln(n);
if m>n then begin
for i:=1 to n do write('*');
for i:=n to m do write('!');
for i:=m downto n do write('*');
end; end.
begin
readln(n, m);
for i := 1 to n do write('*');
writeln;
if (n < m) then
for i := 1 to m do write('!');
end.
По условию так =)