Question

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

Answer 1

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

Answer 2

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

Answer 3

Запросто...

Answer 4

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