Program d;

uses crt;

var a, b: integer;

begin

b:=0;

a:=7;

repeat

b:= b+a;

a:=a-1;

until a=-1;

Write (b,' ');

end.



1

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

2014-04-06T22:24:40+04:00