Определить количество трехзначных чисел - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Вводится последовательность чисел. Конец ввода - 0 . Определить количество трехзначных чисел. Сделать блок-схему и программу написать

Решение задачи: «Определить количество трехзначных чисел»

textual
Листинг программы
  1. uses
  2.   crt;
  3. var
  4.   i,k: integer;
  5. begin
  6.   repeat
  7.     readln(i);
  8.     if (abs(i)>99) and (abs(i)<=999) then inc(k);
  9.   until i=0;
  10.   writeln('ÒðåõçГ*Г*Г·Г*ûõ Г·ГЁГ±ГҐГ«: ',k);
  11.   readln;
  12. end.

Объяснение кода листинга программы

  1. Импортируется модуль CRT (C Run-Time), который содержит функции ввода-вывода и обработки строк.
  2. Объявляются две переменные типа integer: i и k.
  3. Запускается цикл repeat, который продолжается до тех пор, пока пользователь не введет число, равное 0.
  4. В каждой итерации цикла пользователю предлагается ввести число, и если оно удовлетворяет условию (abs(i)>99) and (abs(i)<=999), то значение переменной k увеличивается на единицу.
  5. После окончания цикла выводится сообщение с количеством трехзначных чисел (значение переменной k).
  6. Программа ожидает ввода пользователя, чтобы он мог увидеть результат.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.071 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы