Задание
: integer;
BEGIN
FOR I:=1 TO 6 DO BEGIN
WRITE \('введи количество компьютеров в ', i,' школе'\);
READLN\(L⟨1⟩\);
WRITELN \('L⟨2⟩=',L⟨3⟩\);
END;
WRITELN \('S=',S\);
FOR I:=1 TO 6 DO
IF
WRITELN \('I=',I\);
END.
Задание 15
В 6 школ города Москвы по проекту "МЭШ" поступили компьютеры. В первую только один, во вторую – 4, в третью – 9 и т.д. Подсчитайте общее количество компьютеров. Выведите на экран номера школ, где количество компьютеров кратно 4.
В готовом шаблоне допишите недостающие операторы \(ответ оформите построчно\).
program school;
var L:ARRAY
\[1\.\. \]
OF ;: integer;
BEGIN
FOR I:=1 TO 6 DO BEGIN
WRITE \('введи количество компьютеров в ', i,' школе'\);
READLN\(L⟨1⟩\);
WRITELN \('L⟨2⟩=',L⟨3⟩\);
END;
WRITELN \('S=',S\);
FOR I:=1 TO 6 DO
IF
WRITELN \('I=',I\);
END.