Сумма двух крайних цифр заданного четырехзначного числа равна сумме двух его средних цифр - Free Pascal
Формулировка задачи:
С помощью логической переменной разработать программу.Сумма двух крайних цифр заданного четырехзначного числа равна сумме двух его средних цифр.
Решение задачи: «Сумма двух крайних цифр заданного четырехзначного числа равна сумме двух его средних цифр»
textual
Листинг программы
var
n : integer;
b : boolean;
begin
repeat
write('Number (ABCD): ');
readln(n);
if (n < 1000) or (n > 9999) then writeln('Error!')
until (n >= 1000) or (n <= 9999);
b := (n mod 10) {D} + (n div 1000) {A} = (n div 100 mod 10) {B} + (n div 10 mod 10); {C}
writeln('Result: ', b);
readln
end.
Объяснение кода листинга программы
- Объявлены две переменные: n (целочисленная) и b (логическая).
- Задано условие повторяемости цикла: пока значение n не удовлетворяет условию (n < 1000) или (n > 9999), выводится сообщение об ошибке.
- После достижения условия повторения цикла, значение переменной b устанавливается равным сумме двух крайних цифр числа n.
- Выводится значение переменной b.
- Программа ожидает ввода с клавиатуры.