Задать вопрос
2 июня, 09:04

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

+3
Ответы (1)
  1. 2 июня, 12:21
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дано два числа. Если их сумма кратна 5, то прибавить 1, иначе вычесть 2. Результат вывести на экран. Дано два числа. Если их сумма кратна ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы