ДАНО НАТУРАЛЬНОЕ ЧИСЛО N, ВЫЯСНИТЕ, ВХОДИТ ЛИ ЦИФРА 3 В ЗАПИСЬ ЧИСЛА N^2. пОЖАУИСТА ПОМОГИТЕ!| М | Цитата(Правила Форума) 6. Стиль сообщений. НЕ ПИШИТЕ В БОЛЬШОМ РЕГИСТРЕ! ЭТО РАСЦЕНИВАЕТСЯ КАК КРИК!! ВАМ НРАВИТЬСЯ КОГДА НА ВАС КРИЧАТ? volvo |
Полная версия: Цикл
ДАНО НАТУРАЛЬНОЕ ЧИСЛО N, ВЫЯСНИТЕ, ВХОДИТ ЛИ ЦИФРА 3 В ЗАПИСЬ ЧИСЛА N^2. пОЖАУИСТА ПОМОГИТЕ!
Это не совсем "простой" цикл...
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.