program SumCalculation; var num1, num2, sum: integer; repeat_choice: char; begin repeat writeln('Введите первое число: '); readln(num1); writeln('Введите второе число: '); readln(num2); sum := num1 + num2; writeln('Сумма чисел ', num1, ' и ', num2, ' равна ', sum); writeln('Хотите выполнить программу еще раз? (Y/N)'); readln(repeat_choice); until (repeat_choice = 'N') or (repeat_choice = 'n'); end.
Эта программа находит сумму двух чисел, выводит результат и спрашивает пользователя, хочет ли он повторить операцию. Если пользователь вводит 'Y' или 'y', программа выполняется снова. Если пользователь вводит 'N' или 'n', программа завершается.
Пример программы на Pascal:
program SumCalculation;var
num1, num2, sum: integer;
repeat_choice: char;
begin
repeat
writeln('Введите первое число: ');
readln(num1);
writeln('Введите второе число: ');
readln(num2);
sum := num1 + num2;
writeln('Сумма чисел ', num1, ' и ', num2, ' равна ', sum);
writeln('Хотите выполнить программу еще раз? (Y/N)');
readln(repeat_choice);
until (repeat_choice = 'N') or (repeat_choice = 'n');
end.
Эта программа находит сумму двух чисел, выводит результат и спрашивает пользователя, хочет ли он повторить операцию. Если пользователь вводит 'Y' или 'y', программа выполняется снова. Если пользователь вводит 'N' или 'n', программа завершается.