Question

составить программу для целого двузначного числа А найти сумму и частное его цифр

Answer 1

program massiv;
var A,B,C:integer;
begin
A:=random(90)+10;
writeln(A);
B:=A div 10;
C:=A mod 10;
writeln('Первая цифра числа: ',B);
writeln('Вторая цифра числа: ',C);
writeln('Сумма цифр = ',B+C);
if C=0 then
writeln('На ноль делить нельзя')
else
writeln('Частное цифр = ',B/C);
end.