Задать вопрос
9 июля, 00:45

Помогите решить задачку Pascal

Ввести целое положительное число и определить верно ли что сумма его цифр больше 15

+2
Ответы (1)
  1. 9 июля, 01:05
    0
    Var n, sum: integer;

    begin

    read (n);

    while (n>0) do begin

    sum:=sum + (n mod 10);

    n:=n div 10;

    end;

    if (sum>15) then write ('Верно') else write ('Неверно');

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