Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
yulya160
01.04.2020 12:34 •
Информатика
Найдите все натуральные числа на промежутке от 1 до 200, которые делятся на 3 в паскале
Показать ответ
Ответ:
dfgery
04.10.2020 11:43
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
Range(3,200,3).Println
end.
Результат
3 6 9 12 15 18 21 24 27 30 33 36 39 42 45 48 51 54 57 60 63 66 69 72 75 78 81 84 87 90 93 96 99 102 105 108 111 114 117 120 123 126 129 132 135 138 141 144 147 150 153 156 159 162 165 168 171 174 177 180 183 186 189 192 195 198
0,0
(0 оценок)
Ответ:
polufabrikat17
04.10.2020 11:43
Var i:integer;
begin
For i:=1 to 200 do
If i mod 3 = 0 then write(i,' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
HotaruAnastasija
23.02.2022 09:25
Решить на дан массив x(t). вычислить сумму положительных элементов массива с номерами меньшими 7, значение которых больших 15 (t³7) ....
dmitriidimaro
23.02.2022 09:25
Это универсальный формат, позволяющий открывать и редактировать векторные файлы в других windows-приложениях 1) png 2) svg 3) bmp 4) emf...
БекБека
23.02.2022 09:25
Составить алгоритм решения : расположить три числа 32,17,24 в порядке возрастания:...
Franni
29.10.2022 16:27
Задания№2.Расставьте недостающие знаки препинания. 1. Если вначале он думал, что он теряет драгоценное время что ему надлежит чем-то распоряжаться чем-то командовать...
Olga692010
16.12.2020 07:03
Проверочный диктант К вечеру на г..ризонте появляет(?)ся туча и закрывает (пол)неба за (не)сколько минут. Как н.. всматривайся, (н..)увидиш? н.. малейшего пр..света....
Щерсть
14.01.2020 12:49
Если сторона AC треугольника ABC равна 25 см то средняя линия МN треугольника равна...
Nodukam
02.04.2020 09:52
позначте чинник який не впливає на соціальне здоров я а) література, яку ти читаєшь; б) погода; в) телепрограми; г) музика...
sofitit0410
01.03.2020 19:10
Треба записаты по три приклади. Назви рiчок: Клички собак:...
bereza11
25.05.2020 14:51
8. Дано вектори m (-3; 0) n(-2; 2). Знайдіть косинус кута між векторами ...
есенгельды
07.03.2023 06:38
Обчислити масову частку кухонної солі в розчині, який містить 150г води і 45 г солі....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Range(3,200,3).Println
end.
Результат
3 6 9 12 15 18 21 24 27 30 33 36 39 42 45 48 51 54 57 60 63 66 69 72 75 78 81 84 87 90 93 96 99 102 105 108 111 114 117 120 123 126 129 132 135 138 141 144 147 150 153 156 159 162 165 168 171 174 177 180 183 186 189 192 195 198
begin
For i:=1 to 200 do
If i mod 3 = 0 then write(i,' ');
end.