Question

Даны 5 натуральных чисел.Выяснить сколько из них являются нечетными числами и сколько из них кратны 3 и не кратны 5. Помогите пожалуйста, язык Паскаль.

Answer 1

Var
  i,k,n1,n2:integer;
begin
  n1:=0; n2:=0;
  Write('Введите 5 натуральных чисел: ');
  for i:=1 to 5 do begin
    Read(k);
    if k mod 2<>0 then Inc(n1);
    if (k mod 3=0) and (k mod 5<>0) then Inc(n2)
    end;
  Writeln('Нечетных- ',n1,', кратных 3 и не кратных 5- ',n2)
end.

Пример
Введите 5 натуральных чисел: 11 8 33 15 27
Нечетных- 4, кратных 3 и не кратных 5- 2

Answer 2

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

1. Объявить переменные `countOdd` и `countDivisible` и инициализировать их значением 0. Эти переменные будут использоваться для подсчета количества нечетных чисел и чисел, кратных 3 и не кратных 5 соответственно.

2. Ввести пять натуральных чисел с помощью оператора `readln`.

3. Для каждого числа проверить, является ли оно нечетным и кратным 3, но не кратным 5. Если число удовлетворяет этим условиям, увеличить соответствующую переменную на 1.

4. Вывести значения переменных `countOdd` и `countDivisible` с помощью оператора `writeln`.

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

program CountNumbers;

var
  countOdd, countDivisible, number: integer;

begin
  countOdd := 0;
  countDivisible := 0;

writeln('Введите пять натуральных чисел:');
  readln(number);
  if (number mod 2 <> 0) and (number mod 3 = 0) and (number mod 5 <> 0) then
    countDivisible := countDivisible + 1;
  if number mod 2 <> 0 then
    countOdd := countOdd + 1;

readln(number);
  if (number mod 2 <> 0) and (number mod 3 = 0) and (number mod 5 <> 0) then
    countDivisible := countDivisible + 1;
  if number mod 2 <> 0 then
    countOdd := countOdd + 1;

readln(number);
  if (number mod 2 <> 0) and (number mod 3 = 0) and (number mod 5 <> 0) then
    countDivisible := countDivisible + 1;
  if number mod 2 <> 0 then
    countOdd := countOdd + 1;

readln(number);
  if (number mod 2 <> 0) and (number mod 3 = 0) and (number mod 5 <> 0) then
    countDivisible := countDivisible + 1;
  if number mod 2 <> 0 then
    countOdd := countOdd + 1;

readln(number);
  if (number mod 2 <> 0) and (number mod 3 = 0) and (number mod 5 <> 0) then
    countDivisible := countDivisible + 1;
  if number mod 2 <> 0 then
    countOdd := countOdd + 1;

writeln('Количество нечетных чисел: ', countOdd);
  writeln('Количество чисел, кратных 3 и не кратных 5: ', countDivisible);

end.

После выполнения программы, она выведет количество нечетных чисел и количество чисел, кратных 3 и не кратных 5.

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