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.
Протестируйте программы и ответьте на вопросы:
1. В чём назначение каждой из программ?
2. Какие виды подпрограмм использованы в этих программах?
3. Где располагается подпрограмма в тексте основной программы?
4. Какую структуру имеет подпрограмма?
5. В чём разница между процедурой и функцией?
6. В каких случаях удобно использовать подпрограммы?
Ответа на этот вопрос пока нет. Попробуйте найти его через форму поиска.
Вас заинтересует
1 год назад
1 год назад
1 год назад
8 лет назад