• Нужна блок схема к этой задаче.
    Составить программу вычисления двузначного числа, сумма кубов цифр которого равна n.
    Var
    a,b,k:byte;
    n:integer;
    Begin
    Write('n = ');ReadLn(n);
    k:=0;
    For a:= 1 to 9 do
    For b:= 0 to 9 do
    if a*a*a+b*b*b = n then
    Begin
    Write(a,b,' ');
    k:=k+1
    End;
    if k = 0 then Write('Таких чисел не существует.')
    End.

Ответы 3

  • Спасибо огромное) Обе программы были хороши. но на обе поставить лучшая нельзя. а выбрал эту потому что она больше подходит по техзаданию. но вторая понравилась мне лично по написанию. Еще раз всем спасибо за помощь.
    • Автор:

      ricky28
    • 6 лет назад
    • 0
  • "Вторая" написана так, как надо писать в 2017 году, используя современные идеи и технологии программирования, а первая - в канонах программирования, введенных Н.Виртом и реализованных в языке ТурбоПаскаль в 1983 году. Все-таки 34 года разницы...
    • Автор:

      birdy82
    • 6 лет назад
    • 0
  • Но, к сожалению, учителя в большинстве школ еще сами не готовы воспринимать (и, тем более, обучать) работать с применением современных технологий программирования, поэтому и имеем то, что имеем - обучение на том, что уже никому не интересно и не нужно.
    • Автор:

      buddie
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years