Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
ilyavarbanetsozotem
27.03.2021 23:07 •
Информатика
Составить программу вывода чисел, кратных k на промежутке [a,b]. паскаль
Ответ:
victorov113
18.06.2020 23:45
Var a,b,i,k:integer;
Begin
Read(a,b,k);
For i:=a to b do
If i mod k =0 then write(i);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
ermolaeva1207Arina
14.02.2021 04:41
Напишите эссе на тему электронные услуги ....
stasbrega
08.04.2023 03:23
Решение для pascal abc uses graphabc; var a: integer; begin readln(a); moveto(a,1); circle(a+a div 2,1,a div 4); lineto(a+a div 4,1); moveto(a+ (a div 4)*3,1); lineto (2*a,1); lineto(2*a,1+a);...
irashnytko
08.04.2023 03:23
664 из десятичной в а шестнадцатеричную 664 из шестнадцатеричной в а десятичную 1а1а из шестнадцатеричной в а десятичную с3d из шестнадцатеричной в а десятичную 3d4a из шестнадцатеричной...
Дисконет
15.09.2021 10:20
Кформальным языкам можно отнести ответ: японскую письменность разговорный язык язык язык программирования...
vladukhtin2280
15.09.2021 10:20
Паскаль, 20 составьте программу для вычисления значений функций с промежутка h=[-70; 147], с шагом 0,93 если f(x) = 2x+5, если х 3 8+4, если х 3 программа нужна на паскале! !...
lizo4eek
11.02.2022 11:33
Перевести числа 341, 125, 1024, 4095 в восьмеричную и шестнадцатиричную системы счисления...
Vladislava111111111
13.01.2021 12:01
Записать в виде обычной формулы 1) y: =2*sin(x)*sqrt(x+sqrt(abs( 2) y: = sqrt(sin(x)+sin(sqrt( 3) y: = sqrt(abs(x-1)+sqrt(sin( 4) y: =(5*sin(x) +4)/2*15*sin(sqrt(x)) 5) k+15*x/(2*sin(x))...
pol422
20.01.2022 19:55
Как выключить режим в самолёте на виндовс 10?...
Аня4678
16.05.2020 05:57
Получена информация объемом 8 бит.какого размера информацию можно составить из этих данных? ...
shybite
20.07.2020 15:10
Достаточно ли видеопамяти объемом 256 кбайт для работы монитора в режиме 640 480 и палитрой из 16 цветов?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Var a,b,i,k:integer;
Begin
Read(a,b,k);
For i:=a to b do
If i mod k =0 then write(i);
End.