Дано два числа. Если их сумма кратна 5, то прибавить 1, иначе вычесть 2. Результат вывести на экран. Дано два числа. Если их сумма кратна 5, то прибавить 1, иначе вычесть 2. Результат вывести на экран. Написать на языке Packal

Question

Информатика

Максимильянка

15 мая, 17:35

Дано два числа. Если их сумма кратна 5, то прибавить 1, иначе вычесть 2. Результат вывести на экран. Дано два числа. Если их сумма кратна 5, то прибавить 1, иначе вычесть 2. Результат вывести на экран. Написать на языке Packal

+4

Ответы (1)

Знаете ответ на вопрос?

Степуша · Answer 1

Var

sum, a, b: integer;

begin

sum:=0;

readln (a) ;

readln (b) ;

sum:=a+b;

if (sum mod 5 = 0) then sum:=sum+1 else sum:=sum-2;

writeln (sum) ;

end.