Пусть с клавиатуры вводятся последовательно N целых чисел. Найти количество двухзначных...

Question

Пусть с клавиатуры вводятся последовательно N целых чисел. Найти количество двухзначных чисел

Answer 1

На Паскале: 

Program Count;
Uses crt;
Var a,n: integer;
Begin
n:=0;
While not EOF do begin /Бесконечный цикл, выход по нажатию клавиши ESC/
Writeln('Введите число> ');
readln (a);
If a>9 and a<100 then inc(n); <br>if a=#27 then Begin
Write (/Количество двузначных чисел/ ,n);
Break;
End;
End

На С++ :
#using "iostream"
#using namespace std;
void main()
{ int a,n: integer;
n:=0;
{ for<<(/Введите число/); <br>If a>9 & a<100;<br>if a=+27; }
return 0;
system ("pause"); }