Program program_s_func;
var x:integer;
function razv(x:integer):integer;
var n:integer;
begin
n:=0;
repeat
n:=n*10+(x mod 10);
x:=x div 10;
until x=0;
razv:=n
end;

begin
writeln('Введите натуральное число ');
read(x);
if x mod 10<>0 then
write(razv(x))
else begin
repeat
if x mod 10=0 then
write('0');
x:=x div 10;
until x mod 10<>0;
write(razv(x));
end
end.

Протестируйте программы и ответьте на во В чём назначение каждой из программ?
2. Какие виды подпрограмм использованы в этих программах?
3. Где располагается подпрограмма в тексте основной программы?
4. Какую структуру имеет подпрограмма?
5. В чём разница между процедурой и функцией?
6. В каких случаях удобно использовать подпрограммы?

Daleton    1   23.04.2020 14:27    0