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