Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  55
Language: PASCAL
Code:
programm n_1;
var i,o,k:integer;
begin
k:=0;
for i:=1 to 20 do
begin
o:=random(3)+3;
writeln('Ученик ',i,' оценка ',o);
if o>3 then inc(k)
end;
writeln(k,' учеников 4 и 5')
end.
Comments: