tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Ввести целые положительные числа
Ввести целые положительные числа n и k, вывести на экран все нечетные числа принадлежащие отрезку [1; n], кратные k.
хорошист438
1 19.06.2019 19:20
1
Ответы
fjfckfk
15.07.2020 22:29
Какой язык? Pascal?
var n,k,i: integer;
begin
readln (n);
readln (k);
for i:=1 to n do
begin
if ((i mod 2)=1) and ((i mod k)=0) then
writeln (i);
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
emilgasanov
17.01.2022 13:43
Определить минимальное количество купюр, достоинством 1000, 500, 100, 10 рублей, необходимое для возврата сдачи в R рублей. Входные данные С клавиатуры вводится сумма в рублях,...
Iana2010
17.01.2022 13:44
Дан массив М(10). Заполнить его значениями по следующей формуле – Int(Rnd*50)-25. Найти сумму квадратов индексов тех элементов, которые имеют отрицательное значение. Заменить...
sarababy777
17.01.2022 13:55
Сообщение на тему возможности настольных издательских систем на 3-4 страницы...
andreyBublik
06.05.2019 18:22
Производится двухканальная ( стерео ) звукозапись с частотой дискретизации 16 кгц и 4 - битным разрешением . запись длится одну минуту , её результаты записываются в файл ,...
RichiMcRothschild
06.05.2019 20:14
Дано трехзначное число. напишите программу, которая определяет : является ли число перевертышем т.е числом десятичная запись которого читается одинаково слева направо и справа...
Sevchi
13.05.2020 12:22
Программа, осуществляет вывод десяти нечетных чисел, начиная с 7 (переменная А). Счетчиком цикла является переменная i. Запишите в поле ответа формулу, в которой переменной...
любовь270
13.05.2020 12:17
1. Дать определения трем видам алгоритма.1.11.21.3...
batyademon
05.08.2019 02:10
Когда в школе объявили день вежливости, каждый мальчик из 5а класса поздоровался за руку с каждой девочкой из своего класса. всего при этом было 77 . сколько учеников в 5а...
eremitsa2011
05.08.2019 02:10
Var a,b,c,d,x1,x2: longint; begin read (a, b, c); d: =sqr(b)-4*a*c; x1: = (-b + sqrt(d)) div 2 * a; x2: =(-b - sqrt(d)) div 2 * a; write(x1, , x2); end. почему выдает ошибку?...
Samvel7777
05.08.2019 02:10
Какие вы знаете устройства хранения информации?...
Популярные вопросы
Жұрнақтарын,жалғауларын анықтау...
1
Укажіть ознаку за якою можуть бути рівними трикутники abd і cdb...
1
Тут нужно поставить либо Present Simple или вознаграждение лайк подписка...
2
Признаки общественно-политических движений и формы борьбы общественно-политических...
2
2. Для уравнений 1:5x? — 9x – 2 = 0 2) 2x – 20x + 50 = 03) 3х + 2х + 3 =...
3
Определить, в каких горных районах возникли Апеннины, Карпаты, Урал, Судеты,...
1
Установите соответствие между участниками IV Крестового похода и их целями....
1
Что означает выражение «экзотичность рифмы»?...
1
Ночь перед Рождеством является 1 Лирическим произведением 2 Эпическим произведением...
2
Каротко и ясно 1. Для чего цилиндры имеют горизонтальный и вертикальный...
1
var n,k,i: integer;
begin
readln (n);
readln (k);
for i:=1 to n do
begin
if ((i mod 2)=1) and ((i mod k)=0) then
writeln (i);
end;
end.