Question

Составте программу по блок схеме
Срочно!!!

Answer 1

Это очень легко
1) зайди в контакт

Answer 2

a) program xxx;
var s,k,i: integer;
begin
s:=10;
for i=1 to 5 do
s:= s+k;
writeln(s);
end.
б) program xxx;
var b,n: integer;
begin
b:=0;
n:=1;
repeat
b:= b+n;
n:= n+2;
until n<=10;
writeln(b);
end.
в)program xxx;
var a, k: integer;
begin
k:=1;
a:=0;
while k<4 do {
a:= (a+k)*k;
k:= k+1;
}

writeln(a);
end.