|
|
|
|
|
|
|
Вернуться
| 1 Roman, 19 марта 2008 г. 19:51:50 | |
uses crt;
var x,i:integer;
begin
clrscr;
for i:=1 to 100 do begin
x:=random(300);
if (x<100) and (x>60) then begin
sound(100); { sound ( <4astota zvyka> }
delay(1000); { zader*ka }
nosound;
writeln(x);
end;
end;
readln;
end.
|
|
|
| 2 Беляев Сергей Николаевич, 19 марта 2008 г. 6:01:09 | |
|
Боюсь, что это слишком лёгкая задача для наших участников :) На будущее: если оставлять свой e-mail, то будет гораздо больше шансов получить помощь.
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| | | |
