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

Question

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

Comments

где сделать? В Paskal

---

Pascal*

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.