• Программа на Pascal:

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

    Помогите пожалуйста !

Ответы 2

  • Премного вам благодарен !
  • Var   A,B,i:integer;   k:byte;Begini:=0;k:=0;RepeatRead(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.
    • Автор:

      zayne
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years