Question

Помогите пожалуйста с задачей по информатике в Паскале Задано натуральное число N. Найти количество натуральных чисел, не превосходящих N и не делящихся ни на одно из чисел 2,3,5

Answer 1

Var n,i,s:integer;

Begin

write('Введите число -> ');

readln(n);

for i:=1 to n do

if (i mod 2 = 1) and (i mod 3 = 1) and (i mod 5 = 1) then s:=s+1;

if s=0 then writeln('Таких чисел не существует') else writeln(s,' чисел');

End.

Answer 2

Для решения этой задачи вам потребуется написать программу на языке Паскаль. Вот алгоритм, который решит задачу:

1. Инициализировать переменную count равную 0. Эта переменная будет хранить количество чисел, удовлетворяющих условию.
2. С помощью цикла перебрать все числа от 1 до N.
3. Для каждого числа проверить, делится ли оно на какое-либо из чисел 2, 3 или 5. Если не делится ни на одно из них, увеличить count на 1.
4. В конце работы программы count будет содержать искомое количество чисел.

Вот пример кода на языке Паскаль, реализующий описанный алгоритм:

pascalCopy code
program CountNumbers;

var
  N, count, i: Integer;

begin
  // Вводим значение N
  Write('Введите натуральное число N: ');
  Readln(N);

  // Инициализируем переменную count
  count := 0;

  // Перебираем все числа от 1 до N
  for i := 1 to N do
  begin
    // Проверяем, делится ли текущее число на 2, 3 или 5
    if (i mod 2 <> 0) and (i mod 3 <> 0) and (i mod 5 <> 0) then
      Inc(count); // Если не делится, увеличиваем count на 1
  end;

  // Выводим результат
  Write('Количество чисел, не превосходящих N и не делящихся на 2, 3 и 5: ');
  Write(count);

  Readln;
end.

Скопируйте этот код в среду программирования на Паскале и запустите для решения задачи. Введите значение N, и программа выведет количество чисел, удовлетворяющих условию.