1. for+random a. Вывести случайное количество случайных чиселb

Question

1. for+random a. Вывести случайное количество случайных чиселb. Вывести на экран 10 случайных чиселc. Вывести на экран 10 случайных чисел, значение которых лежит в отрезке [0,10]d. Вывести на экран 10 случайных чисел, значение которых лежит в отрезке [0,9]e. Вывести на экран 10 случайных чисел в [10,20]f. Вывести на экран 10 случайных чисел в [97,122]g. Найти сумму чисел 10 случайных чисел в [0,10]

Answer 1

73

elenanikolaeva

15 февраля 2023

Program TaskA; Var i, n: Integer; BeginRandomize; n: =Random (10); For i: =1 To n DoWriteLn (Random, '); End.Program TaskB; Var i: Integer; BeginRandomize; For i: =1 To 10 DoWriteLn (Random, '); End.Program TaskC; Var i: Integer; BeginRandomize; For i: =1 To 10 DoWriteLn (Random (11) , '); End.Program TaskD; Var i: Integer; BeginRandomize; For i: =1 To 10 DoWriteLn (Random (10) , '); End.Program TaskE; Var i: Integer; BeginRandomize; For i: =1 To 10 DoWriteLn (Random (20+10+1) — 10, '); End.Program TaskF; Var i: Integer; BeginRandomize; For i: =1 To 10 DoWriteLn (Random (122+97+1) — 97, '); End.Program TaskG; Var i, sum: Integer; BeginRandomize; For i: =1 To 10 Dosum: =sum+Random (11); WriteLn (sum); End.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: