Вывести на экран все трёхзначные числа, которые делятся на вторую цифру своей десятичной записи, если это не единица — Pascal(Паскаль)

var
i,d:integer;
begin

for i:=100 to 999 do
    begin
    d:=i mod 100 div 10;
    if (d=0)OR(d=1) then CONTINUE;
    if i mod d=0 then Writeln(i);
    end;
end.

Leave a Comment

84 + = 93