Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nexsting1
22.05.2021 22:36 •
Информатика
Вывести на экран все числа из промежутка от 30 до 80, кратные 5
Показать ответ
Ответ:
ArianaLi
24.06.2020 20:57
var a:integer;
begin
a:=30;
for a:=30 to 80 do
if a mod 5=0 then
Writeln(a);
end.
Объяснение:
0,0
(0 оценок)
Популярные вопросы: Информатика
19791207the
10.10.2022 05:26
Определите, кто играет роль и кто (или что) играет роль объекта в следующих системах: школа, класс, самолет, стая волков, стадо коров....
vanschool
04.02.2023 21:42
Для каких могут использоватся персональные компьютеры люди ниже проффесий архитектор врачь учитель бизнесмен бухгалтер композитор секретарь писатель художник модельер...
bluecat12
13.07.2022 06:44
Вот такое дз задали, никто не знает как делать. , а то класс тупой) вопрос таков : где используются информационные технологии?...
ianna9227p00tfn
01.05.2023 01:11
Примеры актуальной, объективной, необъективной, бесполезной, понятной, непонятной информации....
gancedag05
13.10.2022 15:35
Написать эссе. темы: информационная культура информационная война информационная перезагрузка...
sanyashoydokov
05.04.2021 16:10
Даны два вещественных числа m и k не равные нулю .составить алгоритм и программу вычисления суммы , разности , произведения . прописать каждой 3 этапа...
lenaaaaaak1
07.07.2020 08:21
Вычислите значения следующих логических выражений,записанных на паскале: а) k mod 7 = k div 5 -1 при k=15; б) odd (trunc(10*p) )при p=0,182; в) not odd(n) при n=0; г) t and (p mod...
en228
02.05.2020 15:07
Нужен ответ. - тест гиа файл размером 4 кбайта передаётся через некоторое соединение со скоростью 1024 бита в секунду. определите размер файла (в байтах), который можно передать...
Bosik222
08.07.2020 10:12
Склавиатуры вводится целое число k (1 ≤ k ≤ 180) . определить k-ю цифру в последовательности двузначных чисел, выписанных подряд (). можно ли эту решить без оператора if? !...
hitecheldo155
18.11.2021 13:36
Заполнить двухмерный массив по образцу. 01234 12345 23456 34567 45678...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:integer;
begin
a:=30;
for a:=30 to 80 do
if a mod 5=0 then
Writeln(a);
end.
Объяснение: