Блок - схема, видимо вроде такого вам надо )
программа для паскаля
uses crt;
var a,b,s:real;
begin
clrscr;
write ('a='); read (a);
write ('b='); read (b);
s:=a+b;
if s>100 then writeln (s/2)
else writeln (2*s);
end.
Блок-схемы - в прилагаемых файлах.
Программы:
1)
var i:integer; p:longint;
<span>begin
p:=1;
for i:=5 to 12 do p:=p*i;
writeln('p = ',p);
readln;end<span>.
var i:integer; p:longint;
begin
p:=1;
for i:=12 downto 5 do p:=p*i;
writeln('p = ',p);
readln;end.
Результат:
p = 19958400</span></span>
Это слово "обеспечение" ежу понятно.
Программа на Кумире
алг
нач
цел к, н
н:=1
нц для к от -9 до 9 шаг 2
н:=н*к
кц
вывод н
кон