01.04.2010, 21:13
|
|
Участник форума
Регистрация: 10.01.2009
Сообщений: 296
С нами:
9122295
Репутация:
605
|
|
Помогите плз разобраться.
Требуется составить програму на Паскале, которая выводит на экран все натуральные трехзначные числа,
делящиеся без остатка на 17, сумма цифр которых равняется 11.
Получилось вот что:
PHP код:
var
x,y,z,a,i,s:integer;
Begin
For i:=100 to 999 do
x:=i div 100;
y:=(i div 10) mod 10;
z:=i mod 10;
Begin
a:=x+y+z;
If (a=11) and (i mod 17 = 0) then s:=s+i;
writeln ('s',s);
readln;
end;
end.
Выводит: s=0
Что не так, подскажите пожалст?
Так же еще пробывал
PHP код:
Begin
i:=100
{тут манипуляции с числами, дальше сам цикл}
If (a=11) and (i mod 17 = 0) then s:=s+i else i:=i+1;
writeln ('s',s);
readln;
end;
И cнова s=0.
Только тут программа не выйдет из цикла при i=999, как это сделать?? |
|
|