Задать вопрос
26 сентября, 13:31

Есть число ABC, выписать все трехзначные числа abc если b четное a=1-9 b=1-9 c=1-9 Все выписанные числа должны сложиться

+5
Ответы (1)
  1. 26 сентября, 15:31
    0
    Var s, i:integer;

    begin

    for i:=100 to 999 do

    begin

    if ((i mod 100 div 10) mod 2=0) and ((i mod 100 div 10) 0)

    then writeln (i);

    s:=s+i;

    end;

    writeln (s,' сумма всех таких чисел');

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Есть число ABC, выписать все трехзначные числа abc если b четное a=1-9 b=1-9 c=1-9 Все выписанные числа должны сложиться ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы