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

P. S написать программу в Паскале через while

Question

Информатика

Тимаха

13 сентября, 00:03

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

P. S написать программу в Паскале через while

+5

Ответы (1)

Знаете ответ на вопрос?

Аннуша · 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.

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

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

P. S написать программу в Паскале через while