В 10А классе 30 учеников. Вот итоги их успеваемости за первое полугодие: неуспевающих нет; отличников — трое; на «4» и «5» закончили полугодие пятеро учеников; три ученика имеют тройки по всем предметам. Известно также, что18 учеников среди оценок за полугодие имеют пятёрки, а 24 ученика среди оценок за полугодие имеют четвёрки. Сколько учеников 10 А класса имеют за полугодие и тройки, и четвёрки, и пятёрки?

#include <stdio.h>

int main()
{
    int N;
    char c;
    printf("Исходное направление робота (n,w,s,e): ");
    scanf("%c",&c);
    printf("Команда (0,1,-1,2,-2): ");
    scanf("%d",&N);
    while (N != 0){
    switch (N) {
    case 1 : break;
    case -1:
    switch (c) {
    case 'n' : c = 's'; break;
    case 'w' : c = 'e'; break;
    case 's' : c = 'n'; break;
    case 'e' : c = 'w'; break;
    };
    break;
    case 2 :
       switch (c) {
    case 'n' : c = 'e'; break;
    case 'w' : c = 'n'; break;
    case 's' : c = 'w'; break;
    case 'e' : c = 's'; break;
    };
    break;
    case -2:
       switch (c) {
    case 'n' : c = 'w'; break;
    case 'w' : c = 's'; break;
    case 's' : c = 'e'; break;
    case 'e' : c = 'n'; break;
    };
    break;
    }
    printf("c = %c\n", c);
    printf("Команда (0,1,-1,2,-2): ");
    scanf("%d",&N);
    }
    return 0;
}

Пример:
Исходное направление робота (n,w,s,e): n
Команда (0,1,-1,2,-2): 2
c = e
Команда (0,1,-1,2,-2): 1
c = e
Команда (0,1,-1,2,-2): -2
c = n
Команда (0,1,-1,2,-2): -1
c = s
Команда (0,1,-1,2,-2): 0

Uses GraphABC;
var a,b,c:array[10..99] of integer;
 ast,bst,cst:string;
 i:integer;
begin
ast:='A:';
bst:='Б:';
cst:='В:';
for i:=10 to 99 do
begin
c[i]:=i;
a[i]:=c[i]-i+random(50);
b[i]:=c[i]-a[i];
ast:=ast+' '+inttostr(a[i]);
bst:=bst+' '+inttostr(b[i]);
cst:=cst+' '+inttostr(c[i]);
end;
setpencolor(clRed);
line(0,0,150,0);
line(150,0,75,50);
line(75,50,0,0);
rectangle(0,50,150,300);
DrawTextCentered(0,50,150,300,ast);
setpencolor(clYellow);
line(150,0,300,0);
line(300,0,225,50);
line(225,50,150,0);
rectangle(150,50,300,300);
DrawTextCentered(150,50,300,300,bst);
setpencolor(clGreen);
line(300,0,450,0);
line(450,0,375,50);
line(375,50,300,0);
rectangle(300,50,450,300);
DrawTextCentered(300,50,450,300,cst);
end.