Б9. В 6 школах города поступили компьютеры. В первую только один, во вторую – 3, в третью – 15 и т.д.(укажите самостоятельно количество компьютеров, поступивших в каждую школу). Подсчитайте общее количество компьютеров. Выведите на экран номера школ, где компьютеры можно расставить в 4 аудитории поровну.

а) В готовом шаблоне допишите недостающие операторы.

б) Объясните выполнение программы.
program school;
var L:ARRAY[1.. ] OF ;
: integer;
BEGIN
FOR I:=1 TO 6 DO BEGIN
WRITE ('введи количество компьютеров в ', i,' школе')
READLN(L[i])
WRITELN ('L[',I,']=',L[I]);
END;

WRITELN ('S=',S);
WRITE ('номера школ:');
FOR I:=1 TO 6 DO
IF
WRITE (I, ' ');
END.

MartinaStoessel2    1   16.03.2021 10:40    14