profile
Опубликовано 6 лет назад по предмету Информатика от xVaseKX

Программирование, 10 класс
PASCAL ABC
Необходимо написать код к заданию(как можно проще):
Указать в диапазоне от a до b числа, сумма цифр которого совпадает с их произведением. Или сообщить об отсутствии таких чисел.
Срочно!

  1. Ответ
    Ответ дан ZaharovVasya
    Const a=1; b=5;
    Var i:integer;
    Begin       
    for i:=a to b do       
    if i*i = i+i then       
    writeln(i);       
    readln;       
    end. Достаточно простой код
Самые новые вопросы