Операторы цикла.

[Paul Oakenfold]

Найдите и выведите на экран все трёхзначный числа, сумма цифр которых равна данному числу N, введенному с клавиатуры. N не должно превышать 27.

[Sazary]

Цикл от 100 до 999. Для данного числа считаете сумму цифр и сравниваете с N.
Что непонятно? Где ваши наработки?

[Paul Oakenfold]

readln(n);
if n<=27 then begin
for i:= 100 to 999 do begin
k3:=i mod 10;
k2:=(i mod 100) div 10;
k1:=i div 100;
s:=k1+k2+k3;
if s=n then writeln(i);
end
else writeln('4islo doljno byt <=27');

Пишет ошибку

end
else writeln('4islo doljno byt <=27');

у end Error 85: ";" expected.

[Sazary]

Так ведь этот end принадлежит циклу

for i:= 100 to 999 do begin

а end'а для if'а нет. Вот и ругается.

[Paul Oakenfold]

Program pr_5_22;
uses crt;
var i,n,k1,k2,k3,s: integer;
Begin
clrscr;
write ('n= ');
readln(n);
if n<=27 then begin
for i:= 100 to 999 do begin
k3:=i mod 10;
k2:=(i mod 100) div 10;
k1:=i div 100;
s:=k1+k2+k3;
if s=n
then writeln(i);
end
end
else writeln('4islo doljno byt <=27');
readkey;
end.

Вот ништяк получилось)))