Эта функция выведет 20.
Сначала мы передаём 2 в функцию h как указатель.
Увеличиваем 2 на один, а потом ещё на один, у нас выходит 4.
Возвращаем 4+4=8.
Потом мы передаём 4 в функция h как указатель.
Увеличиваем 4 на один, а потом ещё на один, у нас выходит 6.
6+6=12.
Ну а потом мы возвращаем сумму наших двоих функций h.
12+8 = 20.
Блок-схема к программе - в прилагаемом файле.
Получи 5(6.48) я верю в тебя (кст где ты учишься)
var
n,k,s,a,b,l,x,y,m,n1:integer;
Begin
readln(n,k,b,x,y,l,a,m,n1);
Write('а. ');
if(n mod 2 = 0) then
begin
a := n;
while a > 0 do
begin
s := s + a mod 10;
a := a div 10;
end;
if(s > k) then writeln('True') else writeln('False');
end
else writeln('False');
a := n;
s := 0;
Write('б. ');
while(a > 10) do
begin
a := a div 10;
inc(s);
end;
if(s mod 2 = 0) and (n < b) then writeln('True') else writeln('False');
write('в. ');
a:= n;
while a>10 do
a:=a div 10;
if(a = x)and(n mod 10 = y) then writeln('True') else writeln('False');
write('г. ');
a:=n;
s := 1;
while a > 0 do begin
s := s * (a mod 10);
a := a div 10;
end;
if(s < a) and (n mod b = 0) then writeln('True') else writeln('False');
write('д. ');
a := n;
s := 0;
while a > 0 do begin
s := s + a mod 10;
a := a div 10;
end;
if(s > m)and(n mod n1 = 0) then writeln('True') else writeln('False');
End.
<u>// PascalABC.NET 3.3, сборка 1623 от 16.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
SeqRandom(5,-10,10).Println
end.
<u>Пример во вложении.</u>