Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
andrei182
13.09.2021 06:17 •
Информатика
Дано натуральное число n. составьте программу, которая выводит все числа от 1 по n, у которых последняя цифра кратная 3
Показать ответ
Ответ:
ангелина123456543216
05.10.2020 10:19
Program n1;
var n,p,i: integer;
begin
write('введите n: ');
readln(n);
for i:=1 to n do
begin
p:= i mod 10;
if (p mod 3=0) and (p<>0)
then write(i,' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
999Roman999999991
27.02.2023 03:08
Які команди можна використати для створення проектів з розглуженнями та циклами в Scratch )...
theanuta11
30.01.2023 21:51
Создайте класс «Окружность», которая имеет координаты центра и радиус. Создать производный класс – «Сфера». Определить функции печати, конструкторы, вычисление площади окружности...
kamilamila2005
14.03.2020 22:31
Призначення табличного процесора є:...
Макуегщ
14.03.2020 22:31
быстре я сейчас вам скажу во выбери правильную последовательную цифру так чтобы получилось праграмма в результате который получается линия (строк)-это вид блока столбец это порядок...
nerika2017
03.11.2020 18:30
сделайте здание впр 5 с 183. Книга: 6 класс Наталия морзе, Ольга Барна, Виктория Вембер...
sanakajpak
28.03.2021 03:09
Створити запит з новим обчислювальним полем «ВАРТIСТЬ» з полями «НОМЕР ЗАМОВЛЕННЯ», «НАЗВА ТОВАРУ», |«КРАЇНА ВИРОБНИК», «ФРМА ПОСТАЧАЛЬНИК», «ДАТА ПРОДАЖУ», «ЦНА», «КІЛЬКІСТЬ ЗАМОВЛЕНЬ»,...
Halimali10
30.03.2020 18:11
1. Рассчитать дискретный канал связи без памяти: Задан входной и выходной алфавит канала связи Задано распределение вероятностей Px (x) над входным алфавитом: x x1 x2 x3 x4 x5 p(x)...
Капуста11111
01.12.2021 05:46
правило по которому цифры располагаются зеленые фигурах и впишите цифры 1 3 6 и 9 в голубые фигуры...
Софийкф
07.08.2020 11:00
Воспользуйтесь текстом, расположенным справа. Запишите свой ответ на вопрос. Как называют в настоящее время «болезнь путешественников» и что является её основной причиной?...
111759
10.10.2020 15:07
описание традиции в семье придумкиных и ответьте на вопрос....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,p,i: integer;
begin
write('введите n: ');
readln(n);
for i:=1 to n do
begin
p:= i mod 10;
if (p mod 3=0) and (p<>0)
then write(i,' ');
end;
end.