Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
alex27045
09.02.2020 23:23 •
Информатика
Дано натуральное число n. составьте программу, которая выводит все числа от 1 по n, у которых последняя цифра кратная 3
Показать ответ
Ответ:
irinkaokhotina
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 оценок)
Популярные вопросы: Информатика
GloomyCat231
27.04.2022 08:28
Бжб информатика сегодня нужно...
Ярослав12345678
11.01.2023 11:49
14 у исполнителя квадратор две команды, которым присвоены номера: 1. вычти 4 2. возведи в квадрат первая из них уменьшает число на экране на 4, вторая — возводит...
dedmoros1234567
25.06.2022 11:47
Определите, что будет напечатано в результате работы следующей программы. текст программы на пяти языках программирования. бейсик python dim k, s as integer s =...
Rasul101231
06.05.2020 14:35
Некоторый алфавит содержит четыре различных символа. сколько трехбуквенных слов можно составить из символов этого алфавита , если символы в слове могут повторяться?...
Kornella
14.09.2022 12:21
Сійсиdim k, as integerfor k-5 to 9fork in range(5.10print (6) хажалгvar s,k: integer; begins: 0; for k : - 5 to 9 dos: s+ 8; writeln(s); цел s, ks: 0нц для k от...
Дентсик901
07.03.2022 15:34
Напишите программу реализующую метод пузырька .Для уменьшения количества ненужных сравнений может служить счётчик подщитывающий количество обменов за один...
мирахуснатдинова
21.09.2020 18:12
перевести число 10116 в двоичную систему...
оаилпаидшп
20.04.2021 02:43
Дан символ C, изображающий цифру или букву (латинскую или русскую). Если C изображает цифру, то вывести строку «digit», если латинскую букву — вывести строку «lat»,...
worldteawithlemon
13.02.2020 18:41
Вспомни, от каких славян произошли русские....
drunkbear
13.02.2020 18:41
Укажи, какое существо, по мнению славян, жило в лесу....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.