[@Jlo6aH]

for x:=1 to хз сколько do begin
S:=S+3;
end.

Добавлено через 8 минут
uses crt ;
var S, x : integer;
begin
S:= 0;
for x:=1 to 7 do begin
S:=S+3;
end.
writeln(S);
end.

Сообщение от Jlo6aH

for x:=1 to хз сколько do begin
S:=S+3;
end.

Добавлено через 8 минут
uses crt ;
var S, x : integer;
begin
S:= 0;
for x:=1 to 7 do begin
S:=S+3;
end.
writeln(S);
end.

нужно найти сумму этих чисел S=3+6+9+12+15+18+21, помоги плз, я в душе не ... как это все решать :)

Добавлено через 1 минуту
через прогрессию как ты и сделал...

[@LumeR]

ахах, не фига задача повышенной трудности

да сам знаю что я лох :)
но зачет получить нужно ..

[@Jlo6aH]

uses crt ;
var b, S, x : integer;
begin
S:= 0;
b:= 0;
for x:=1 to 7 do begin
b:=b+3;
S:=S+b;
end.
writeln(S);
end.

Добавлено через 25 секунд
проверить возможности нет, пишу прям в окне поста рфч :о

Сообщение от Jlo6aH

uses crt ;
var b, S, x : integer;
begin
S:= 0;
b:= 0;
for x:=1 to 7 do begin
b:=b+3;
S:=S+b;
end.
writeln(S);
end.

Добавлено через 25 секунд
проверить возможности нет, пишу прям в окне поста рфч :о

вроде ответ верен... но вот я не могу понять почему... можешь обьяснить суть этих строк:
S:= 0;
b:= 0;
for x:=1 to 7 do begin
b:=b+3;
S:=S+b;

[@Jlo6aH]

эммм
ну
S:= 0;
b:= 0; присваиваю этим переменным значение 0, хз, мб и не надо, но я привык так

for x:=1 to 7 do begin
b:=b+3;
S:=S+b;

это цикл, в переводе на русский - для икс равного 1 до семи делать:
b:=b+3;
S:=S+b;

Сообщение от Jlo6aH

это цикл, в переводе на русский - для икс равного 1 до семи делать:
b:=b+3;
S:=S+b;

так вроде там же нужно от 3 до 21?

[@Jlo6aH]

ну так
переменная b это как раз те числа, которые у тебя даны
каждый раз, когда цикл начинается заново, он увеличивается на 3, то есть и получится
1 3
2 6
3 9
4 12
5 15
6 18
7 21
а переменная S как раз таки суммирует все эти числа...

S=3+6+9+12+15+18+21

var a:array [1..7] of integer;
i,j:integer;
begin
clrscr;
j:=3;
for i:=1 to 6 do begin
a[i]:=j;
j:=j+3;
end;
for i:=1 to 7 do
j:=j+a[i];
writeln('Сумма элементов равна = ',j);
end.

Буквы сам заменишь