В группе 15 учащихся. Известна оценка каждого. Сколько было пятёрок P.S написать...

Question

В группе 15 учащихся. Известна оценка каждого. Сколько было пятёрок
P.S написать программу в Паскале через while

Answer 1

Var A,i:Byte;
S:integer;
Begin
i:=1;
S:=0;
While i<=15 do<br>Begin
A:=random(5)+1;
if A=5 then S:=S+1;
i:=i+1
End;
WriteLn('Кол-во пятёрок = ',S)
End.

Comments

Можно ли написать эту программу и использованием while и команды random?

---

Запросто...

---

Представьте пожалуйста такой вариант