Классе 20 учеников писали диктант по русскому языку Напишите программу подсчитывающую...

Question

Классе 20 учеников писали диктант по русскому языку Напишите программу подсчитывающую количество двоек троек четверок и пятерок полученным за диктант

без инета плиз)

Answer 1

На языке паскаля

program marks;
var a,b,c,d,q:integer;
begin
q:=20;
a:=4;
b:=5;
c:=7;
d:=4;
writeln('Количество двоек:', q-b-c-d);
writeln('Количество троек:', q-a-c-d);
writeln('Количество четвёрок:', q-a-b-d);
writeln('Количество пятёрок:', q-a-b-c);
end.

Вот что получится(см. фото)

---