составить программу,которая будет выводить на экран случайные целые числа из интервала от -20 до 40, до тех пор пока, не будет напечатан 0

1

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

2013-02-26T20:47:15+04:00

program nol;

var a,b:integer;

 

begin
 randomize;
   repeat
     a :=-20+Random(60);
     writeln (a:5);
   until a=0;
 end.