Задачі на цілочисельне ділення

• Складіть програму обчислення квадрату суми цифр цілого двохзначного числа.
• Екран повинен мати вигляд  3+4 у квадраті = 49
• Введіть двохзначне число 34 

program p27;

uses crt;
Var n,c1,c2,c3,p:integer;
BEGIN
write('34:');read(n);
c1:=n div 100;c2:=n div 10 mod 10; c3:=n mod 10;
p:=c1*c2*c3;
writeln(c1,'*',c3,'=',p);
END.

Складіть програму обчислення суми цифр цілого трьохзначного числа.                                                                    Екран повинен мати вигляд:

program p28;

uses crt;
Var a,b,c,f:integer;
BEGIN
write ('vedit chislo a:');read(a);
b:=a div 100;

c:=a div 10 mod 10;

f:=a  mod 10;

a:=b+c+f;
writeln(a);
END.

Складіть програму обчислення суми квадратів цифр цілого трьохзначного числа.                                   Екран повинен мати вигляд : 9+16+25=50                                                                                                                               

program p29;

uses crt;
Var a,b,c,f:integer;

BEGIN
writeln('vedit chislo:');read(a);
b:=a div 100;
writeln(b);
c:=a div 10 mod 10;writeln(c); f:=a mod 10;
writeln(f);

writeln(b+c+f);

END.