Var m,n,i,j:longint;
begin
readln(n,m);
if m > n then begin
for i:= n to m do begin
for j:= 1 to i do begin
write(i,' ');
end;
writeln;
end;
end else begin
for i:= m to n do begin
for j:= 1 to i do begin
write(i,' ');
end;
writeln;
end;
end;
end.
Var
c,n,k,i:integer;
a:array[1..1000] of integer;
begin
write('Write size array: '); readln(n);
write('Write c: '); readln(c);
k:=0;
for i:=1 to n do
begin
read(a[i]);
if a[i]>c
then inc(k);
end;
writeln(k);
readln;
readln
end.
Лестница:
нц 7 раз
вниз
закрасить
нц 2 раз
вправо
закрасить
кц
кц
конец
Доска:
нц 4 раз
закрасить
вниз
вниз
кц
вправо
вверх
закрасить
нц 3 раз
вверх
вверх
закрасить
кц
вверх
вправо
закрасить
нц 3 раз
вниз
вниз
закрасить
кц
вниз
вправо
закрасить
нц 3 раз
вверх
вверх
закрасить
кц
вверх
вправо
закрасить
нц 3 раз
вниз
вниз
закрасить
кц
вниз
вправо
закрасить
нц 3 раз
вверх
вверх
закрасить
кц
вверх
вправо
закрасить
нц 3 раз
вниз
вниз
закрасить
кц
вниз
вправо
закрасить
нц 3 раз
вверх
вверх
закрасить
кц
<span>кон</span>
Говорит декан факультета информатики Сание<span> Мамбетовна. Ты отчислена! Завтра же зайди в деканат!</span>
Допустим Pascal. На нем обычно ведется обучение.
IF x>7 then y:=x-3 else
IF x<-5 then y:=4*sqr(x) else
y:=5;