(см. объяснение)
Объяснение:
program task;
var i: integer;
const N=5;
procedure writeOut(i: integer);
begin
if(i<N) then write(', ')
else writeln('.');
end;
begin
if(N<1) then begin writeln('N>0 и целое!'); exit; end;
writeln('ЦИКЛ FOR:');
for i:= 1 to N
do begin
write(i); writeOut(i);
end;
writeln;
writeln('ЦИКЛ WHILE:');
i:= 1;
while(i<N+1)
do begin
write(i); writeOut(i);
i:= i+1;
end;
writeln;
writeln('ЦИКЛ REPEAT:');
i:= 1;
repeat
write(i); writeOut(i);
i:= i+1;
until i=N+1;
end.
Списать текст, вставить пропущенные буквы, расставить знаки препинания.
РУССКАЯ ЗИМА.
Хороши снежные зимы в Росси…! (Не)погоду см..няют ясные дни. Бл..стят на солнце глубокие сугробы скрылись (подо)льдом большие реки и маленькие реч…нки. Пр…пор…шила зима землю снежной шубкой. Отдыхает земля набирает силу.
Наполняе(тся, ться) жизнью зимний лес. Вот простучал по сухому дереву дятел. По всему лесу отбивает дробь лесной барабан…ик. С шумом пролетит рябчик подним…(тся, ться) из снежной пыли глухарь. Стайка пестрых клестов ра(с,з)селась на ветках ели. Стоиш… и любуеш…ся как ловко они вонзают свои клювики в шишки выб…рают из них с…м..на. С су чка на суч…к перепрыгивает шустрая белка.
Вот пр…летела большая сова и подала голос. Ей отозвались другие совы. Пискнула тихонько лесная мыш… пробежала по снегу и скрылась под пнем в сугробе.
Объяснение:
Создаём массив из 11 элементов, который называем Dat:
целтаб Dat[1:11]Объявляем переменные к и ш, являющимися целыми числами:
цел к, шЗаполняем массив Dat:
Dat[1]:=21 Dat[4]:=19 Dat[7]:=23 Dat[10]:=29 Dat[2]:=23 Dat[5]:=25 Dat[8]:=21 Dat[11]:=19 Dat[3]:=20 Dat[6]:=22 Dat[9]:=22Присваиваем переменной ш значение 0.
ш:=0Объявляем цикл от 1 до 11, то бишь пробегаемся по массиву Dat и смотрим, если значение элемента больше 22, то прибавляем к переменной ш 1:
нц для к от 1 до 11 если Dat[к]>22 то ш:=ш+1 Все кцВыводим на экран значение переменной ш:
вывод шТаким образом мы видим, что программа подсчитывает количество классов в которых больше 22 учеников. Таких классов будет 4: 2(23), 5(25), 7(23) и 10(29).