Pascal:
Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые при делении на данное число K, дают в остатке число 4.
Ответы
Ответ дал:
0
Остаток при делении числа n на k есть результат операции n mod k
var
a,b,i,k:integer;
begin
Write('Укажите границы интервала [A;B]: '); Read(a,b);
Write('Задайте число k: '); Read(k);
Write('Отобранные числа: ');
for i:=a to b do
if i mod k =4 then Write(i,' ')
end.
Пример
Укажите границы интервала [A;B]: 8 27
Задайте число k: 5
Отобранные числа: 9 14 19 24
var
a,b,i,k:integer;
begin
Write('Укажите границы интервала [A;B]: '); Read(a,b);
Write('Задайте число k: '); Read(k);
Write('Отобранные числа: ');
for i:=a to b do
if i mod k =4 then Write(i,' ')
end.
Пример
Укажите границы интервала [A;B]: 8 27
Задайте число k: 5
Отобранные числа: 9 14 19 24
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад