ЦЧД

program cile_dilennya;

uses crt;
var a:integer;
BEGIN
a:=6 div 5;
writeln(a);
a:=148 mod 40;
writeln(a);

a:=12 div 7;
writeln(a);
a:=234 mod 15;
writeln(a);

a:=47 div 10;
writeln(a);
a:=15 div 4 mod 2;
writeln(a);

a:=185 mod 100 ;
writeln(a);
a:=88 mod 5 div 2;
writeln(a);

a:=89 div 12;
writeln(a);
a:=753 div 5 mod 4;
writeln(a);

a:=75 div 4;
writeln(a);
a:=129 mod 10 div 3;
writeln(a);

a:=129 div 50;
writeln(a);
a:=384 div 23 mod 4;
writeln(a);

a:=56 mod 7;
writeln(a);
a:=384 mod 23 div 4 ;
writeln(a);
END.

2.

Дано ціле чотирьохзначне число. Помножте на два число, яке утворюється, якщо виписати цифри першого числа у зворотному порядку.
program zvorotnii_poryadok;

uses crt;
var a,b,c,x,z,v:integer;
BEGIN
Writeln('vedit 4-h znachne chislo');
REadln(a);
b:=a mod 10;
c:=a mod 100 div 10;
x:=a div 100 mod 10;
z:=a div 1000;
v:=(b*1000+c*100+x*10+z)*2;
writeln(v);
readln;
END.
...................
Перевірка
Вхід 2345
Вихід 10864
....................

3

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

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

4

Складіть програму обчислення суми цифр цілого трьохзначного числа
program Suma_cifr;

uses crt;
var n,a,b,c,s:INTEGER;
BEGIN
Writeln('vedit 3h znacne chislo');
Read(a);
n:=a mod 10;
writeln(n);
b:=a div 100;
writeln(b);
c:=a div 10 mod 10;
writeln(c);
s:=n+b+c;
writeln(s);
readln;
readln;
END.
............................
Перевірка
Вхід 345
Вихід 12
...........................

5

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

uses crt;
var n,a,b:byte;
BEGIN
Read(a,b);
n:=a+b;
writeln(n);
readln;
readln;
END.
............................
Перевірка
Вхід 23
Вихід 5
...........................