• 16 April 2017
    • Українська література
    • Автор: Goglew66

    Найдите все целые числа из промежутка от 300 до 600, у которых сумма делителей равна 50 . Помогите пожалуйста решить задачу .

    • Ответ оставил: Мненужнпомошь
    Программа точно по условию:Var A,d,S:integer;BeginWrite('Искомые числа:');For A:= 300 to 600 do    Begin    S:=A+1;    d:=A div 2;    While d>1 do       Begin       if...
    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предметы...

Последние опубликованные вопросы