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

Question

Информатика

Каллиста

12 сентября, 16:38

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