Цикл, ПРОСТОЙ ЦИКЛ Опции

[Nahalka]

ДАНО НАТУРАЛЬНОЕ ЧИСЛО N, ВЫЯСНИТЕ, ВХОДИТ ЛИ ЦИФРА 3 В ЗАПИСЬ ЧИСЛА N^2. пОЖАУИСТА ПОМОГИТЕ!

М

6. Стиль сообщений. НЕ ПИШИТЕ В БОЛЬШОМ РЕГИСТРЕ! ЭТО РАСЦЕНИВАЕТСЯ КАК КРИК!! ВАМ НРАВИТЬСЯ КОГДА НА ВАС КРИЧАТ? volvo

[volvo]

Это не совсем "простой" цикл...

var
  n, sq: integer;
  found: boolean;

begin
  write('n = '); readln(n);
  sq := sqr(n); found := false;

  while sq > 0 do begin

    if sq mod 10 = 3 then begin
      writeln('yes'); found := true;
    end;
    sq := sq div 10;

  end;

  if not found then
    writeln('no');
end.