Var n, i, sum: integer; //Описание переменных Begin //Начло программы writeln ('Введите число'); //Диалог с пользователем readln(n); //Считывание числа sum := n; //Присваивание сумме значение самого числа (само число - уже делитель самого себя) writeln('Делители числа:'); //Диалог с пользователем for i := 1 to n div 2 do //Цикл For от до половины n if (n mod i) = 0 then begin //Если число делится на i, то выводим write(i,' '); sum := sum + i; //К значению суммы прибавляем делитель end; //Конец условного оператора if writeln(n); //Вывод самого числа, т.к. оно тоже делитель writeln('Сумма делителей: ',sum); //Вывод суммы делителей End.
//Pascal //1) var x, y: integer; begin write('Введите x y: '); read(x, y); if x > y then writeln(x - y) else writeln(y - x); end.
//2) var a, b, c: integer; begin write('Введите a b c: '); read(a, b, c); if (a > (b + c)) then writeln(a) else writeln(b + c); end.
//3) var x, k: integer; begin write('Введите x k: '); read(x, k); if k = 1 then writeln(sin(x)) else if k = 2 then writeln(cos(x)) else writeln('k должен быть равен 1 или 2.'); end.
//4) var p, m: integer; begin write('Введите p, m: '); read(p, m); if p > m * 2 then writeln(p) else writeln(m * 2); end.
