60 баллов, срочно! 1,2,3 задания

Question

60 баллов, срочно!
1,2,3 задания

---

Answer 1

1.
var
s,n:integer;
begin
s:=4;
for n:=1 to 7 do begin
s:=s+n*3;
end;
write(s);
end.

//Блок схема на скрине

2.
var
s,x,n:integer;
begin
s:=0;
repeat
x:=x+2;
s:=s+x;
until x=n;
end.

//Блок схема на скрине

3.
var
x:longint;
begin
for x:=1000 to 9999 do
if (x mod 133=125) and (x mod 134=111) then 
write(x);
end.

---

---

Comments

Спасибо! Очень хорошее решение, жаль, что поздно :)

Answer 2

Вот схема, попробуй по ней!

---