Из промежутка от 15 до 35 найди количество чисел, которые делятся на 6.
Помогите.
Нужно написать на PascalABC
Ответы на вопрос
Ответил gamemode37
1
program divisible_by_6;
var
i, count: integer;
begin
count := 0;
for i := 15 to 35 do
begin
if i mod 6 = 0 then
count := count + 1;
end;
writeln('Количество чисел, делящихся на 6 в промежутке от 15 до 35: ', count);
end.
Эта программа использует цикл for для проверки каждого числа в промежутке от 15 до 35 на делимость на 6. Если число делится на 6 без остатка (i mod 6 = 0), то увеличивается счетчик (count). В конце программа выводит количество найденных чисел, делящихся на 6.
Новые вопросы
Математика,
1 год назад
Математика,
1 год назад
Английский язык,
1 год назад
Другие предметы,
1 год назад
Английский язык,
7 лет назад
География,
7 лет назад