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

Количество классов в школе изучающих информатику 14. Во всех классах случайное количество учащихся не менее 16, но не более 35. Во всех классах 1 урок в неделю, но если в классе 16 учеников или больше, то класс делится на две группы: 1)посчитать сколько всего учеников изучают информатику? 2)сколько часов информатики в неделю? В Паскале.

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

    Program z1;

    var f: array[1..14] of integer;

       sum,i:integer;

    begin

    randomize;

    for i:=1 to 14 do

     begin

      f[i]:=random(16,35);  

      writeln(f[i],' человек',' в',' ',i,' классе');

      Sum:=Sum+f[I];

     end;

     writeln('----------------------');

     writeln ('Всего человек:',sum);

     writeln ('Нужно уроков:',14*2); // делим на 2 группы,т.к во всех классах >16 человек.

     writeln ('Нужно часов:',(14*2)*0.75); // урок длится 3/4 часа (45 минут).

    end.

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