Человек чаще выступает в роли неформального исполнителя.
Но человеку могут дать задание, например, вскопать огород. Он берет лопату и начинает копать землю.
Человеку могут приказать бежать или петь песню, или укладывать кирпичи. Тогда он выступает в роли формального исполнителя.
Program n_1;
var n,count:integer;
Begin
Write('введите натуральное полож.число n -');
read(n);
count:=0;
While n>0 do
Begin
n:=n div 10;
count:=count+1;
end;
write(count);
End.
Попробуй эту программу
Первая:
<span>var </span>
<span>q,a,b:real; </span>
<span>begin </span>
<span>read(a,b); </span>
<span>q:=sqrt(a*a+b*b); </span>
<span>writeln(q:2:2); </span>
<span>end. </span>
<span>Вторая: </span>
<span>var </span>
<span>a:integer; </span>
<span>begin </span>
<span>read(a); </span>
<span>writeln('The next number for the numder ',a,' is ',a+1); </span>
<span>write('The previaus number for the numder ',a,' is ',a-1); </span>
<span>end. </span>
Var a,b:integer;
begin
readln(a,b);
if a>b then write(a)
else write(b)
end.
Основание - 8, т.е. восьмиричная система счисления