Даю 35 баллов!!!! Напишите пожалуйста программу в Паскаль по информатике (правильную)

Question

Даю 35 баллов!!!! Напишите пожалуйста программу в Паскаль по информатике (правильную)

---

Comments

а про 35 баллов врать не стоило: ведь над заданием пишется, сколько за него дают.

Answer 1

Программа на 5.
Program CelChis;
var c: integer;
Begin
Randomize;
c:=random(90)+10;
Writeln('Случайное число ', c);
Writeln('Сумма цифр числа ', c, ' равна ', c div 10 + c mod 10);
Writeln('Произведение цифр числа ', c, ' равно ', (c div 10) * (c mod 10));
Writeln('Перестановка цифр числа ', c, ' даст число ', c div 10 + (c mod 10)*10);
End.

Программа написана для ABC Pascal. Если используется turbo pascal или его аналоги, перед var пишем uses crt; и перед End. пишем readln (чтобы после завершения программы консоль ждала нажатия клавиши Enter, а не возвращала обратно к тексту программы).