Question

С клавиатуры вводятся 5 чисел. Определить есть ли среди них положительные, двузначные, кратные 5 и сколько их​. Паскаль

Answer 1

program raf105;

var a, counter,i: integer;

begin

writeln('Вводите числа по очереди');

for i:=1 to 5 do

begin

 readln(a);

 if (a>0) and (a>=10) and (a<=99) and((a mod 5)<>0)

   then counter+= 1;

end;

writeln('Таких цифр: ',counter);

end.

Язык  PascalABC

Answer 2

Для определения количества положительных, двузначных и кратных 5 чисел среди введенных пользователем, вам потребуется написать программу на Pascal. Ниже приведен пример кода для выполнения этой задачи:

pascalCopy code
program PositiveTwoDigitMultiplesOfFive;

var
  numbers: array[1..5] of integer;
  positiveCount, twoDigitCount, multiplesOfFiveCount, i: integer;

begin
  positiveCount := 0;
  twoDigitCount := 0;
  multiplesOfFiveCount := 0;

  // Вводим числа с клавиатуры
  writeln('Введите 5 чисел:');
  for i := 1 to 5 do
  begin
    readln(numbers[i]);

    // Проверяем, является ли число положительным
    if numbers[i] > 0 then
      positiveCount := positiveCount + 1;

    // Проверяем, является ли число двузначным
    if (numbers[i] >= 10) and (numbers[i] <= 99) then
      twoDigitCount := twoDigitCount + 1;

    // Проверяем, является ли число кратным 5
    if numbers[i] mod 5 = 0 then
      multiplesOfFiveCount := multiplesOfFiveCount + 1;
  end;

  // Выводим результаты
  writeln('Количество положительных чисел: ', positiveCount);
  writeln('Количество двузначных чисел: ', twoDigitCount);
  writeln('Количество чисел, кратных 5: ', multiplesOfFiveCount);

  readln;
end.

Скопируйте этот код в среду программирования Pascal (например, Free Pascal или Lazarus) и запустите его. После запуска программа попросит ввести 5 чисел с клавиатуры, а затем выведет количество положительных, двузначных и кратных 5 чисел среди введенных.