Цитата:
Сообщение от 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;