Определить количество трехзначных чисел - Pascal ABC
Формулировка задачи:
Вводится последовательность чисел. Конец ввода - 0 . Определить количество трехзначных чисел. Сделать блок-схему и программу написать
Решение задачи: «Определить количество трехзначных чисел»
textual
Листинг программы
- uses
- crt;
- var
- i,k: integer;
- begin
- repeat
- readln(i);
- if (abs(i)>99) and (abs(i)<=999) then inc(k);
- until i=0;
- writeln('ÒðåõçГ*Г*Г·Г*ûõ Г·ГЁГ±ГҐГ«: ',k);
- readln;
- end.
Объяснение кода листинга программы
- Импортируется модуль CRT (C Run-Time), который содержит функции ввода-вывода и обработки строк.
- Объявляются две переменные типа integer: i и k.
- Запускается цикл repeat, который продолжается до тех пор, пока пользователь не введет число, равное 0.
- В каждой итерации цикла пользователю предлагается ввести число, и если оно удовлетворяет условию (abs(i)>99) and (abs(i)<=999), то значение переменной k увеличивается на единицу.
- После окончания цикла выводится сообщение с количеством трехзначных чисел (значение переменной k).
- Программа ожидает ввода пользователя, чтобы он мог увидеть результат.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д