Question

35 БАЛЛОВ
ПАСКАЛЬ
Даны переменные a, b. Значение переменой a, b вводит пользователь. - Сообщить пользователю о необходимости ввода чисел. - Вывести на экран сумму переменных a+b с пояснением. - Проверить перед вводом пользователем чисел на неравенство вводимых чисел нулю. Т.е., если пользователь ввел "0" - вывести сообщение и продолжить выполнение программы.

Answer 1

var

a, b: integer;

begin

read(a, b);

if (a = 0) or (b = 0)

then

 writeln('[WARNING] a или b равны нулю');

writeln(a, ' + ', b, ' = ', a + b);

end.

Answer 2

Ответ:

var

a,b,c: integer;

begin

writeln('Введите значение чисел a,b');

readln(a,b);

if (a = 0) or (b = 0) then begin

 writeln('Значение чисел не должно быть равно нулю! Введите значения ещё раз.');

 readln(a,b);

end;

c := a + b;

writeln('Сумма данных чисел равна: ' + c);

end.