(25 фев 2014, 13:00) (0/0)
[0]
где здесь ошибка?
program zadacha3_3;
var c1,ñ2,ñ3,i,n,kol: integer;
Begin
writeln(\'ââåäèòå \');
readln(n);
kol i:=100 to 999 do
begin
c1:=i div 100;
c2:=(i div 10) mod 10;
c3:=i mod 10;
if c1+c2+c3=n then kol:=kol+1;
end;
write ln(\'êîëâî =\',kol);
end.
с меня +
program zadacha3_3;
var c1,ñ2,ñ3,i,n,kol: integer;
Begin
writeln(\'ââåäèòå \');
readln(n);
kol i:=100 to 999 do
begin
c1:=i div 100;
c2:=(i div 10) mod 10;
c3:=i mod 10;
if c1+c2+c3=n then kol:=kol+1;
end;
write ln(\'êîëâî =\',kol);
end.
с меня +
- 1 из 1
