Поделитесь своими знаниями, ответьте на вопрос:
В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.
//попробуйте мой вариант:
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.