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

Question

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

anasteishamrrr · Answer

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