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

Question

Информатика

Толяна

27 ноября, 18:58

Дано два числа. Если их сумма кратна 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