С клавиатуры вводятся оценки учащихся. Подсчитать количество сдавших экзамен ( получили оценку не менее 3) и не сдавших предмет( получили 2)
Программа Паскаль
Answers & Comments
Bakalavr
Program maxx; var ocenka,sdal,nesdal,k,i:integer; begin writeln('введите кол-во оценок'); readln(k); sdal:=0; nesdal:=0; for i:=1 to k do begin readln(ocenka); if ocenka>2 then sdal:=sdal+1; else nesdal:=nesdal+1; end; writeln(sdal); writeln(nesdal); end.
Answers & Comments
var ocenka,sdal,nesdal,k,i:integer;
begin
writeln('введите кол-во оценок');
readln(k);
sdal:=0;
nesdal:=0;
for i:=1 to k do
begin
readln(ocenka);
if ocenka>2
then sdal:=sdal+1;
else nesdal:=nesdal+1;
end;
writeln(sdal);
writeln(nesdal);
end.