Цитата:
Сообщение от 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 минуту
через прогрессию как ты и сделал...