В 9 Строке ВЫДАЁТ ОШИБКУ Компьютер ПИШЕТ ФУНКЦИЯ RANDOM С ПАРАМЕТРАМИ
В 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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.