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

Question

Информатика

Вяча

17 августа, 11:57

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

+4

Ответы (1)

Знаете ответ?

Адам · Answer 1

Var

A, B:integer;

Begin

Write ('Введите два числа: ') ; ReadLn (A, B) ;

A:=A+B;

if A mod 5 = 0 then A:=A+1

else A:=A-2;

WriteLn (A) ;

End.

Введите два числа: 17 13

31