1. Информатика
  2. Вывести на экран все числа,

Вывести на экран все числа, кратные 3 в интервале от m до n при m

dolback dolback    2   27.08.2019 02:20    2

Ответы
просточеловек20171 просточеловек20171  05.10.2020 21:58
Var
    i, n, m: integer;

begin
    readln(m, n);
    for i := m to n do
        if i mod 3 = 0 then writeln(i);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Dagrf Dagrf  20.10.2020 06:33
1. Как представлена информация на компьютере? 2. Что такое двоичное кодирование?3. Какие методы кодирования информации существуют4. Сколько символов содержит компьютерный...
Ditroid Ditroid  20.10.2020 06:33
Симфонический оркестр исполняет музыкальное произведение.Определите типы исполнителей​...
1526962 1526962  20.10.2020 06:35
Доклат по информатике 5 класс ранее пройденные темы мне нужн своими словамина если чё учебник(Т.Р.Орумкулов М.У.Касымалиев) очень...
SomaHin SomaHin  20.10.2020 01:34
Які роздільники абзаців ви знаєте?​...
незнайка2901 незнайка2901  06.09.2020 20:56
4. Повідомлення закодоване шифром Цезаря зі зсувом на 3 літери праворуч. Декодуйте повідомлення:а) дзузфзпа;б) жеrуг сесжг;в) редьғоарйм укн усітсьгдфв.5. Зобро на​...
АнастейшаГрей1 АнастейшаГрей1  23.05.2019 14:50
Определённое сочетание всех или некоторых свойств некоторого объекта?...
Anion20 Anion20  09.04.2020 18:26
В цехе синтеза аммиака производились замеры концентрации аммиака в воздухе рабочей зоны. Получен ряд (в мг/м3): 16, 16, 15, 14, 10, 20, 16, 14, 18, 14, 15, 13, 17, 15,...
marselk2 marselk2  09.04.2020 18:26
Выполнить задание: Сформировать массив по вариантам (номер варианта соответствует порядковому номеру в списке) Решить на данном массиве задачи: Подсчитать количество...
stars28082003 stars28082003  09.04.2020 18:27
очень нужно! Запусти Pascal. Введи программу. program pr_1; var x,y,sum, umn: integer; begin write ( x= ); readln (x); write ( y= ); readln (y); sum:=x+y; umn:=x*y; writeln...
даная7234598 даная7234598  21.12.2020 11:51
Ребят с контрольной работой максимальный ​...

Популярные вопросы