Блок схемы рисуется так, если что не понятно пиши
Насколько я знаю , то можно создать в Вк такого бота , мне так говорили , там есть какое - то спец. приложение что ли
function sum (a : integer) : integer;
var
s : integer;
begin
While a > 0 do
begin
s := s + a mod 10;
a := a div 10;
end;
Result := s;
end;
var
a,b : integer;
c,d : integer;
begin
readln (a,b);
c := a div b;
d := a - (b * c);
writeln (sum(d));<span>
end.
function p (a : integer) : integer;
var
p : integer;
begin
p := 1;
While a > 0 do
begin
p := p * a mod 10;
a := a div 10;
end;
Result := p;
end;
var
a : integer;
begin
readln (a);
writeln (p(a));<span>
end.</span></span>
Var a,n,s,i : integer;
begin
writeln('Число чисел');
readln (n);
s:= 0;
for i:=1 to n do begin
readln(a);
if (a mod 2 <>0) and (a>0) then s:= s+a;
end;
writeln (s) ;
end.