b) Напишет все числа от 1 до 9, при этом без тройки.
c) Напишет все буквы в слове "table", без первой t
continue - это штука, которая пропускает следующую часть цикла, начиная новую.
В букве "b" continue стоит в условии "i == 3". Если i равен трём, то "print(i)" пропускается и начинается новый цикл (при этом изменения сделанные раньше остаются.)
В букве "c" происходит цикл, который перебирает все символы в строке. Условие проверяет, равен ли символ t. Если равен, то используется continue и символ не выводится.
Если есть вопросы, пиши
Объяснение:
program daysmonth1;
const n=100;
Var
a,i,m,y,days1,days2:integer;
mas1:array [ 0..n ]of longint;
p:boolean;
BEGIN
p:=false;
writeln('vvedite nomer mesyaca');
readln(m);
writeln('enter year');
readln(y);
a:=1960;
while a<>2012 do begin
a:=a+4;
if y=a then begin writeln('visokosnyi god'); p:=true;
mas1[ i ]:=a;
end;
end;
if m=1 then writeln('jan=31 days');
if (m=2) and (p=false) then writeln('feb=28 days') ;
if (m=2) and (p=true) then writeln('feb=29 days');
if m=3 then writeln('mar=31 days');
if m=4 then writeln('apr=30 days');
if m=5 then writeln('may=31 days');
if m=6 then writeln('june=30 days');
if m=7 then writeln('jule=31 days');
if m=8 then writeln('aug=31 days');
if m=9 then writeln('sept=30 days');
if m=10 then writeln('oct=31 days');
if m=11 then writeln('nov=30 days');
if m=12 then writeln('dec=31 days');
END
