Если случайное число попало в диапазон 60 - 100, подайте звуковой сигнал

@lexilexustkn · Регистрация: 06.03.2013

Author24 — интернет-сервис помощи студентам

Напишите программу, которая генерирует 100 целых случайных чисел в диапазоне 1..300. Если случайное число попало в диапазон 60..100, подайте звуковой сигнал и выведите это число на экран.

@Nesteslavik · 13.03.2013, 14:50

Pascal

Uses
    Crt;
Var
   i:Integer;
   Number:Integer;
Begin
     Randomize;
     For i:=1 to 300 do begin
         Number:=Random(301);
         if (Number>=60) And (Number<=100) then begin
            WriteLn(Number);
            Sound(300);
            Delay(100);
            NoSound;
         end;
     end;
     ReadKey;
End.

@lexilexustkn 0 / 0 / 0 Регистрация: 06.03.2013 Сообщений: 39
		1
	Если случайное число попало в диапазон 60 - 100, подайте звуковой сигнал 13.03.2013, 10:15. Показов 1802. Ответов 1 Метки нет (Все метки) Напишите программу, которая генерирует 100 целых случайных чисел в диапазоне 1..300. Если случайное число попало в диапазон 60..100, подайте звуковой сигнал и выведите это число на экран. 0

	13.03.2013, 14:50

Если случайное число попало в диапазон 60 - 100, подайте звуковой сигнал

Решение