Задать вопрос
22 июня, 19:58

Определить кратно ли число 3 в Pascal, Если не кратно то умножить на 10, если кратно то разделить на 3

+5
Ответы (1)
  1. 22 июня, 22:12
    0
    Program n1;

    var a: integer;

    begin

    readln (a);

    if a mod 3=0 then writeln (a/3)

    else writeln (a*10)

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Определить кратно ли число 3 в Pascal, Если не кратно то умножить на 10, если кратно то разделить на 3 ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы