Присвоить логической переменной T значение true, если значение d-цифра, и значение false в противном случае - Pascal ABC
Формулировка задачи:
Имеется символьная переменная d, присвоить логической переменной T
значение true, если значение d-цифра, и значение false в противном случае.
Решение задачи: «Присвоить логической переменной T значение true, если значение d-цифра, и значение false в противном случае»
textual
Листинг программы
program pr;
var
d: char;
f: boolean;
begin
writeln('Введите d');
readln(d);
if d in ['0'..'9'] then
f := true
else f := false;
writeln('f: ', f);
end.
Объяснение кода листинга программы
В данном коде объявлены две переменные: d и f. Переменная d типа char, а переменная f типа boolean.
- Строка «writeln('Введите d')» выводит на экран сообщение «Введите d», предлагая пользователю ввести значение для переменной d.
- Строка «readln(d)` считывает введенное пользователем значение и сохраняет его в переменной d.
- Строка «if d in ['0'..'9'] then» проверяет, является ли значение переменной d цифрой от 0 до 9. Если да, то присваивается значение true переменной f, иначе — значение false.
- Строка «writeln('f: ', f);» выводит на экран значение переменной f.