Question

Паскаль, решите, срочно !!

Answer 1

1.program prim;
var a,b:integer;
begin
write ('введите расстояние в сантиметрах');
readln(a);
b:=a mod 100;
writeln(b, 'метров');
readln;
end.

3.
Program Task2_2a;

uses WinCrt;

var

n, p, n1 : longint;

begin

write('Введите натуральное число '); readln(n);

n1 := 0;

while n > 0 do

begin

n1 := n1*10 + n mod 10;

n := n div 10

end;

writeln('Число, после перестановки цифр равно ', n1)

end.