Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
polly009090
05.06.2020 09:09 •
Информатика
Вывести все числа от 1 до 1 оканчивающиеся на 8 и делящиеся на 3.
на паскале, программа полностью.
Ответ:
0оМорковкао0
04.10.2020 13:18
var a:integer;
begin
for a:=1 to 10000 do
begin
if (a mod 10 =8)and(a mod 3 =0) then writeln(a);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kirich8899
14.06.2021 13:51
Дана программа. Определить результат выполнения. program N02;const A: array [1..10] of integer = (1,36,2,18,3,12,4,9,6,6);var i,k: integer;begink:=0;for i:=1 to 7 doif A [i] A [i+1]...
nikaerika11
01.07.2020 05:54
Футбольная команда ищет игрока ростом 180 см, с голубыми глазами. . Командасоставила программу на ПК, которая выводит сообщение «ВЫ НАМ ПОДХОДИТЕ» тем, уКого цвет глаз голубой и...
LoVE3223
09.11.2021 21:37
Чому дорівнює х після виконання послідовності присвоєнь y=2,x=y ...
DairLayra
30.04.2022 11:35
Что такое папки общего доступа...
Тупой2111
31.08.2021 09:59
Сколько памяти потребуется для хранения десятичного числа 5550? с решением 1- 4 байта 2 - 2 байта 3- 18 бит 4 - 32 бита...
kolchanovalina
29.10.2022 00:29
Алам денесинин шамамен 64% -судан турады.массасы 50 кг болатын адам денесинде канша килограмм су бар? ...
sirkovake
24.10.2020 14:36
І ВАРІАНТ 3Знайдіть значення виразу 5 - *1 — + 3-2 11 22Знайдіть значення виразу ть...
name64
27.10.2020 12:11
3) x:18 = 2:3;4) 6 : x = 3:7; Можете...
Изумруд444
16.01.2022 07:03
Егер мен кендебайдын орынында болсам әрі қарай жалғастыр...
pomogite228plez
04.03.2022 12:34
Match the sentence halves from Kate s diary. I wanted to swim in the sea, and the sun was shining all day Unfortunately, the car drive but the water was too cold was very long and...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a:integer;
begin
for a:=1 to 10000 do
begin
if (a mod 10 =8)and(a mod 3 =0) then writeln(a);
end;
end.