Пять заданий по практике выручайте!!!!!!!!!!

[Grag]

Но, без комментариев...

Program Numbers;
Uses Crt;
Var
  i,j,k:byte;
  itr:word;
BEGIN
  ClrScr;
  itr:=0;
  for i:=1 to 9 do
    begin
      for j:=0 to 9 do
        begin
          for k:=10-(i+j) to 9 do
            begin
              if i+j+k=10 then
                write(i*100+j*10+k,'  ');
              Inc(itr)
            end
        end
    end;
  writeln;
  writeln;
  Writeln('itr = ',itr);
  writeln('Press any key...');
  repeat
  until KeyPressed
END.

[Warfvare]

огромное спасибоо хоть еще и незапускал но ето уже завтра))))))

[Grag]

Вот более правильное и оптимальное решение
Всего 219 циклов....

Program Numbers;
Uses Crt;
Var
  i,j,k:byte;
BEGIN
  ClrScr;
  itr:=0;
  for i:=1 to 9 do
    begin
      for j:=0 to 10-i do
        begin
          for k:=0 to 10-(i+j) do
            if i+j+k=10 then
                write(i*100+j*10+k,'  ')
        end
    end;
  writeln;
  writeln;
  writeln('Press any key...');
  repeat
  until KeyPressed
END.

[Девочка-Скандал]

По поводу оптимизации- а оно мне надо? Но есть вариант сократить количество ваших циклов в 2 раза! 108 циклов или 126 операций.

[liljon]

Сообщение от Девочка-Скандал

По поводу оптимизации- а оно мне надо? Но есть вариант сократить количество ваших циклов в 2 раза! 108 циклов или 126 операций.

интересно... выкладывайте алгоритм

[Девочка-Скандал]

Var i,k,l:integer;
Begin
I:=1;
While i+1<>10 do
Inc(i);
Inc(i,100);
K:=90;
L:=18;
While k>=10 do
Begin
Write(i);
If i mod 100 >=k then begin 
Dec(k,10);inc(i,L);inc(L,9);
End
Else inc(i,9);
End;
Readln;
End.

итого просматриваем 62 числа

[Stilet]

While i+1<>10 do
Inc(i);

Во-первых не лишне заключить i+1 в скобки
во-вторых, не проще ли написать i:=9 вместо этого цикла?

[Grag]

Да все равно она молодец!!!

[Девочка-Скандал]

Еще проще написать i:=109; тогда количество просмотров будет 54

[Warfvare]

Сообщение от Девочка-Скандал

Var i,k,l:integer;
Begin
I:=1;
While i+1<>10 do
Inc(i);
Inc(i,100);
K:=90;
L:=18;
While k>=10 do
Begin
Write(i);
If i mod 100 >=k then begin 
Dec(k,10);inc(i,L);inc(L,9);
End
Else inc(i,9);
End;
Readln;
End.

итого просматриваем 62 числа

Напримерелюбого 3-х значного числа например 456 где тут i,k,l ?