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

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

Задать свой вопрос
Калашник Егор
где сделать? В Paskal
Домбрачева Василиса
Pascal*
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт