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

[Warfvare]

Сообщение от Warfvare

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

А все ненадо понял!

[Arigato]

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

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 числа

Что-то Вы намудрили. Не проще ли так:

var A, B: Integer;
begin
  for A := 1 to 9 do
    for B := 0 to 10 - A do
      WriteLn (A, B, 10 - A - B);
end.

54 шага.

[crazy horse]

2Warfvare прошу прощения за любопытство... Вы по национальности кто?

[artemavd]

Что, превратили очередную тему очередного двоечника во флудильню чтоли? Я щас быстро базарчик-то сей прикрою тогда!

[Warfvare]

Сообщение от crazy horse

2Warfvare прошу прощения за любопытство... Вы по национальности кто?

Я РУССКИЙ А ЧТО? И К ЧЕМУ-БЫ ТАКОЕ ЛЮБОПЫТСТВО?

[crazy horse]

Я РУССКИЙ А ЧТО? И К ЧЕМУ-БЫ ТАКОЕ ЛЮБОПЫТСТВО?

То, что я узбеков знаю, которые по -русски пишут лучше. Надо же, открыть учебник сложнее чем в инет вылезти стало. Может, грубовато, но надоело, честное слово... Интернет - в массы! Тьфу, одна из самых идиотских идей...

[Warfvare]

А ты про грамотность догда понятно!

[Stilet]

мда... Действительно флудиловка...