profile
Опубликовано 5 лет назад по предмету Информатика от kete5

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

  1. Ответ
    Ответ дан Giammy

    var

     grade, g2, g3, g4, g5: integer;

     i: byte;

    begin

     for i := 1 to 20 do

     begin

       Write('Введите оценку - '); readln(grade);

       case grade of

         2: inc(g2);

         3: inc(g3);

         4: inc(g4);

         5: inc(g5);

       end;

     end;

     Writeln('Пятерок - ', g5);

     Writeln('Четверок - ', g4);

     Writeln('Троек - ', g3);

     Writeln('Двоек - ', g2);

    end.

Самые новые вопросы