• Вопрос по информатике:

    В 9 СТРОЧКЕ ВЫДАЁТ ОШИБКУ КОМП ПИШЕТ «ФУНКЦИЯ RANDOM С ПАРАМЕТРАМИ УКАЗАННЫХ ТИПОВ НЕ НАЙДЕНА» ПОМОГИТЕ!!!
    1. program chislo;
    2. var n, k, i, raz:integer;
    3. begin
    4. write (сколько чисел нужно сгенерировать ? );
    5. readln (n);
    6. write('число которое нужно посчитать (k) :) :
    7. readln (k);
    8. for i:=1 to n do
    9. if (random(0,100)) =k
    10. then raz:-raz+1;
    11. writeln ( 'из ,n, cгенирировандных чисел число 1 , k, встретилось , raz, раз');
    end.

    • Автор:

      drew
  • Не в этом ошибка

    • Отвечал:

      aryancje1
    • 0
    Там ошибка в 9 строке

    • Отвечал:

      ciaragqjw
    • 0
    В 9 СТРОЧКЕ ВЫДАЁТ ОШИБКУ КОМП ПИШЕТ «ФУНКЦИЯ RANDOM С ПАРАМЕТРАМИ УКАЗАННЫХ ТИПОВ НЕ НАЙДЕНА»

    • Отвечал:

      fredytr6
    • 0
    Ошибки, связанной с функцией random, у меня не было

    • Отвечал:

      pb&jelsr
    • 0
    А тут фотку где-нибудь модно скинуть?

    • Отвечал:

      miasybeard
    • 0

    //Попробуйте мой вариант:

    program chislo;

    var n, k, i, raz:integer;

    begin

       write('Сколько чисел нужно сгенерировать: ');

       readln(n);

       write('Число которое нужно посчитать (k): ');

       readln(k);

       for i:=1 to n do

           if random(0,100) = k then

               raz:=raz+1;

       writeln( 'Из ', n, ' cгенирировандных чисел число ', k, ' встретилось ', raz, ' раз(а)');

    end.

    • Отвечал:

      captainuqvr
    • 0

    Ответ:

    Для Turbo Pascal

    randomize;

    x :=random (101)

    по шаблону x:=random (max-min+1)+min

    Для Pascal ABC  

    randomize;

    x :=random (0,100)

    • Отвечал:

      adalbertoznup
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска