Напишите программу, которая вводит последовательность целых чисел кончающеюся нулем и

Напишите программку, которая вводит последовательность целых чисел заканчивающейся нулем и определяет, сколько двузначных чисел в последовательности.

Задать свой вопрос
1 ответ
PascalAbc.NET
var
  a,k:longint;
begin
  k:=0;
  a:=123454;
  while a lt;gt; 0 do
  begin
    read(a);
    if (a div 10 lt;=9) and (a div 10 gt;=1) then
      inc(k);
  end;
  writeln(k);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт