Б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.
214
358
Ответы на вопрос:
Популярно: Информатика
-
marinafox25330.04.2023 11:25
-
olgahenderson26.02.2022 13:48
-
MichiChi06.12.2021 04:59
-
ann0706kol03.06.2020 06:24
-
kosmikanna19.02.2022 18:09
-
vladislavfomin28.05.2023 01:53
-
deadcreamrus02.04.2023 04:30
-
Cachu26.01.2020 07:35
-
99999767565626.03.2020 08:03
-
WOWCAT29198128.11.2021 22:55