Ответы и объяснения

  • Sky09
  • профессор
2013-05-24T13:01:49+04:00

program abc;

uses crt;

var a,b:integer;

begin

clrscr;

a:=2; b:=0;

while a<>7 do

begin

a:=a+1;

b:=b+a;

end;

writeln('b=',b);

end.

2013-05-24T19:46:43+04:00
Program abc;
Var a,b:integer;
Begin
B:=0;
For a:=2 to 7 do
A:=a+1;
B:=b+a;
End;
Writeln(b);
End.