Для промежутка [1,255] построить множество чисел, кратных 11, используя такое свойство: если суммы цифр, стоящие на четных и на нечетных местах числа одинаковы, тогда все число делится на 11

Категория: Delphi/Pascal
2012-01-06 19:18:51
code: #pascal
Program PascalGuru;
var i:integer;
    cet,nec:integer;
begin
for i:=1 to 255 do
    begin
   if i<100 then
   if (i div 10)=(i mod 10)  then writeln(i); 
   if i>100 then
    begin
    nec:=i div 100+i mod 10;
    cet:=(i mod 100)div 10;
    if nec=cet then writeln(i);
    end; 
    end;
end.
Поделиться:

Похожие статьи:

теги: новички, mod, кратность