Question

Надо сделать только 2 и 3 пж всё там расписывайте, а то увидел у многих там не расписывают вообще, а в классе мы расписывали.​

Answer 1

Відповідь:

2) var

n:Integer;

a:array [1..10] of Integer;

begin

Read(n);

a[1]:=n mod 10;

n:=n div 10;

a[2]:=n mod 10;

Write(a[2]-a[1]);

end.

3) var

n,m:Integer;

begin

Read(n);

m:=n div 1000;

Write(m,'кг',' ',n-m*1000,'г' );

end.

Пояснення: