Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
BlackPorshe2356
29.03.2020 01:43 •
Информатика
Дано число n. в интервале от 1 до n вывести на экран все числа которые делятся на 10 без остатка
Показать ответ
Ответ:
sofaaa77
09.10.2020 22:24
6
readln(n);
for i:=1 to n do
begin
write(i:3);
end;
writeln;
for i:=1 to n do
if i mod 3=0 then
begin
write(i:3);
end;
0,0
(0 оценок)
Популярные вопросы: Информатика
anokhina69
31.07.2021 09:21
Вставь пропущенное слово может быть названо алгоритмом если оно обладает необходимыми свойствами...
artikiv2006
31.07.2021 09:21
Дан целочисленный одномерный массив, состоящий из n элементов. найти сумму и произведение нечетных элементов, кратных 3....
Marksh
21.05.2021 17:07
Нужно ввести с клавиатуры в одну строку фамилию, имя и отчество. вывести фамилию и инициалы. напишите, , программу! пример: напечатали иванов петр сергеевич , компьютер выдаёт иванов...
pollylu12
05.05.2021 14:53
Черно белое изображение 40×40 п. сколько кб 100 таких изображений(...
linasokol03
01.06.2021 05:23
Что выведет данная программа? program p1; var z: integer; function f (n: byte): longint; begin if n=0 then f: =1 else f: =(2*n)*f(n-1); end; begin z: =f(5); writeln (z); end....
Manber
16.02.2023 05:57
Напишите название инструмента, с которого можно придавать объектам объем....
Кравченко123
24.05.2020 23:42
6. Назовите по одному примеру объект -модель в области машиностроения, биологии...
Сэээээ
04.12.2022 19:53
Петя и Оля в стране Информатика» Придумать сказку прстешествие детей встране Информатика с интереснеум сюжетом ,...
АрТёМкА945
27.03.2021 09:27
Бжб 6 класс 3Dбаспа информатика...
123456789надежда1234
26.05.2021 02:13
Даны числа от 1 до 10.выбери все числа из этого списка удовлетворяющие условия...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
6
readln(n);
for i:=1 to n do
begin
write(i:3);
end;
writeln;
for i:=1 to n do
if i mod 3=0 then
begin
write(i:3);
end;