640...........................................
#include <iostream>
using namespace std;
int main(){ int i, num, sum; sum = 0; i = 1; cin >> num; while (i < num) { if (num % i == 0) { sum += i; } i++; } if (sum == num) { cout << sum; } return 0;}
Pascal ABC
Var
A:integer;
Begin
Write('A = ');Read(A);
Write(A div 10,'+',A mod 10,' = ',(A div 10)+(A mod 10))
End.
Изменение цвета шрифта букв копирование вставка