Вопрос пользователя:
вычислить с помощью блок схемы и программы паскаля:
1)произведение 7 чисел (a,b,c,d,e,f,g);
2) произведение первых 7 чисел (not н./цел. от 1 до 7)
Илюха отвечает:
1) var a,b,c,d,e,f,g: real;
begin
readln(a,b,c,d,e,f,g);
writeln(a*b*c*d*e*f*g);
end.
2) var a,i,s: integer;
begin
s:=1;
a:=0;
for i:=1 to 7 do begin
a:=a+1;
s:=a*s;
end;
writeln(s);
end.
Вот программы. По ним составь блок схемы.