Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
deniskalubit
23.01.2023 16:23 •
Информатика
Вывести на экран все двузначные числа, которые кратны 3 и не кратны 5 вывести на экран все двузначные числа которые в сумме своих цифр 15 , .
Показать ответ
Ответ:
ruslan07072
07.10.2020 23:52
1.
var i:integer;
begin
for i:=10 to 99 do
if (i mod 3=0)and(i mod 5<>0)
then write(i,' ');
end.
Результат:
12 18 21 24 27 33 36 39 42 48 51 54 57 63 66 69 72 78 81 84 87 93 96 99
2.
var i:integer;
begin
for i:=10 to 99 do
if i div 10 + i mod 10 = 15
then write(i,' ');
end.
Результат:
69 78 87 96
0,0
(0 оценок)
Популярные вопросы: Информатика
angelinakunda
21.11.2022 23:38
Сообщение может пополнить знания человека, если...
StalinReal
03.05.2023 12:50
Какую формулу нужно выбрать, чтобы определить минимальное из значений в диапазоне ячеек с C5 по C20? 1)=МИН(С5;С20) 2)=МИН(С5:С20) 3)=СЧЕТ(С5:С2О) 4)=СУММ(С5;С20)...
79954236
10.06.2021 03:51
Дана процедура: procedure nod (a, b: integer; var c: integer); begin while a b do if a b then a:=a-b else b:=b-a; c:=a end; Чему равно значение с после вызова процедуры...
nadia291
06.08.2020 04:55
Скільки разів виконається цикл, якщо початкове значення Х=7? Repeat X := X+1 Untіl X 10; Позначте одну правильну відповідь. (Кількість балів 1.00) А Жодного Б 4 В 6...
koshe4ka556654
14.11.2021 08:00
создать программу для вычисления значения функции на C#....
Rozaroza1234
07.06.2023 13:18
с решением задачи в кумире....
Lizaliza123123
14.09.2020 21:24
Укажіть твердження які характеризують векторні зображення. Варіанти відповідей у файлі.. ↓↓↓...
sasha123123476
10.04.2021 14:11
На значення яких властивостей слід звернути увагу, купуючи нову мишу для домашнього комп’ютера? Поясніть чому....
catikis
07.06.2020 08:10
Для чого використовують сканер? Які типи сканерів ви знаєте? Які значення властивостей можуть мати сканери, що використовують у комп’ютерних класах школи? Який сканер...
habibullina342
04.02.2020 13:14
Построить таблицу значений функции F, для x изменяющегося в пределах от x0 до xk с шагом h. Значения x0, xk, h задаются пользователем. 5 Вариант .В Python...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i:integer;
begin
for i:=10 to 99 do
if (i mod 3=0)and(i mod 5<>0)
then write(i,' ');
end.
Результат:
12 18 21 24 27 33 36 39 42 48 51 54 57 63 66 69 72 78 81 84 87 93 96 99
2.
var i:integer;
begin
for i:=10 to 99 do
if i div 10 + i mod 10 = 15
then write(i,' ');
end.
Результат:
69 78 87 96