Program n1;
const n=20;
var a: array [1..n] of integer;
i,k: integer;
begin
k:=0;
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a[i]);
if (a[i]=0) or (a[i]<=-30) or (a[i]>=30) then break;
if (a[i] mod 2=0) and (a[i] mod 3=0) then k:=k+1;
end;
writeln('количество: ',k);
end.
1) a) пробить товар, распечатать чек, выдать сдачу; b) взять метлу, подметать, выбросить бумажку; c) патрулировать, спрятаться в засаде, вооружиться; d) подписать бумаги, провести урок, составить расписание уроков
2) Исполнитель
3) Формальные (не могут вносить изменения в алгоритм) и неформальные (могут вносить изменения в алгоритм) исполнители
4) Можно
5) c) e) f)