Приклади Ц.Ч.Д.

1.
Приклад Ц.Ч.Д.

program Cile_dilenya;

uses CRT;

Var a:integer;

BEGIN
a:=6 div 5;
Writeln(a);
a:=148 mod 40;
Writeln(a);

a:=8 div 6;
Writeln(a);
a:=74 mod 21;
Writeln(a);

a:=59 div 45;
Writeln(a);
a:=183 mod 39;
Writeln(a);

a:=53 div 14;
Writeln(a);
a:=195 mod 36;
Writeln(a);

a:=156 div 75;
Writeln(a);
a:=264 mod 92;
Writeln(a);

a:=274 div 85;
Writeln(a);
a:=148 mod 40;
Writeln(a);

a:=534 div 105;
Writeln(a);
a:=173 mod 18;
Writeln(a);

a:=1926 div 72;
Writeln(a);
a:=739 mod 30;
Writeln(a);
END.

 Перевірка
Вихідні:
1;
28;

1;
11;

1;
27;

3;
15;

2;
80;

3;
28;

5;
11;

26;
19;

2.
Добуток цифр цілого чотирьохзначного числа.

program Dobytok_cufr_cilogo_shoturoxznashnosho_shusla;

uses CRT;

Var a,b,c,d,t,f:integer;

BEGIN
Writeln('Vvedit 4 shusla');
Readln(t);
a:=t mod 10;
Writeln(a);
b:=t div 1000;
Writeln(b);
c:=t div 100 mod 10;
Writeln(c);
d:=t div 10 mod 10;
Writeln(d);
f:=a*b*c*d;
Writeln(a,'*',b,'*',c,'*',d,'=',f);
END.

Перевірка
Вхідні:
t-3545
Вихідні:
f-300;

Вхідні:
t-1234;
Вихідні:
f-24;

Вхідні:
t-7396;
Вихідні:
f-1134;

3.
Суми квадратів цифр цілого трьохзначного числа.

program Cymu_cufr_cilogo_troxznashnogo_shusla;

uses CRT;

Var a,b,c,d,f:integer;

BEGIN
Writeln('Vvedit 3 shusla');
Readln(d);
a:=d mod 10;
Writeln(a);
b:=d div 100;
Writeln(b);
c:=d div 10 mod 10;
Writeln(c);
f:=a+b+c;
Writeln(a,'+',b,'+',c,'=',f);
END.

Перевірка
Вхідні:
d-345
Вихідні:
f-12;

Вхідні:
d-736;
Вихідні:
f-16;

Вхідні:
d-537;
Вихідні:
f-15;

4.
Переведення часу.

program Perevedennia_shasy;

uses CRT;

Var a,b,t,f:byte;

BEGIN
Writeln('Vvedit 3');
Readln(t);
a:=t div 60;
Write(a,'god.');
b:=t mod 60;
Write(b, 'xv.');
END.

Перевірка
Вхідні:
d-150
Вихідні:
f-2 год. 30 хв.;

Вхідні:
d-190;
Вихідні:
f-3 год. 10 хв.;

Вхідні:
d-210;
Вихідні:
f-3 год. 30 хв.;