Question

Программа на Pascal: Вводятся целые числа. Признак конца - ввод числа 0. Определить, сколько двузначных четных чисел, оканчивающихся на 2, расположено между 2-ым и 5-ым числами Помогите пожалуйста !

Answer 1

Var
   A,B,i:integer;
   k:byte;
Begin
i:=0;
k:=0;
Repeat
Read(A);
i:=i+1;
if (i>2)and(i<5) then
   Begin
   B:=Abs(A);
   if (9<B)and(B<100)and(B mod 10 = 2) then k:=k+1;
   End;
Until (A = 0)or(i>=5);
if A<>0 then
   Repeat
   Read(A);
   Until A = 0;
WriteLn(k)
End.

Answer 2

Конечно, вот пример программы на Pascal, которая решает вашу задачу:

program CountEvenNumbers;

var
  number, count: integer;

begin
  writeln('Введите целые числа. Для завершения введите 0.');
  
  { Инициализация счетчика }
  count := 0;
  
  repeat
    { Ввод числа }
    readln(number);
    
    { Проверка на конец ввода (введено число 0) }
    if number = 0 then
      break;
    
    { Проверка на двузначность, четность и оканчивание на 2 }
    if (number >= 10) and (number <= 99) and (number mod 2 = 0) and (number mod 10 = 2) then
      count := count + 1;
      
  until false;
  
  writeln('Количество двузначных четных чисел, оканчивающихся на 2, между 2-ым и 5-ым числами: ', count);
end.

Программа принимает ввод целых чисел до тех пор, пока не будет введено число 0. После каждого ввода числа программа проверяет, является ли оно двузначным, четным и оканчивается ли на 2. Если условие выполняется, счетчик увеличивается. В конце программа выводит количество подходящих чисел.

Обратите внимание, что в этой программе предполагается, что пользователь вводит числа по одному и завершает ввод числом 0.