Цілочисельне ділення

1)Складіть програму обчислення квадрату суми цифр цілого двохзначного числа
program dilenna;
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.

2)Складіть програму обчислення квадрату суми цифр цілого двохзначного числа
program dilenna;
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.


3)Складіть програму обчислення добутку другої та третьої цифр цілого чотирьохзначного числа
program p29;
uses crt;
Var a,b,c,d,f: integer;
BEGIN
Writeln(' Vedit chislo');
Read( b);
a:=b div 100 mod 10;
c:= b mod 100 div 10;
f:= a+c;
Writeln(f);
END.


4)Складіть програму переведення суми грошей, заданої в копійках, у гривні та копійки

program p30;
uses crt;
Var a,b,c:integer;
BEGIN
Writeln( 'vedit kilkist kopiechok');
Read(a);
c:=a div 100;
b:=a mod 100;
writeln ('gruvni',c,'kop.',b);
readln;
END.
--------------------------------
Перевірка
Вхід 2345
Вихід 23  грн 45 коп
--------------------------------
-