Ïàñêàëü. Îñíîâû ïðîãðàììèðîâàíèÿ


Ïðåîáðàçîâàíèå òèïîâ - ÷àñòü 5


                 end;

             if

p=0

               then

                 begin

                    write('×èñëî ', n, ' íåëüçÿ ïðåäñòàâèòü â âèäå ');

                    writeln('ñóììû êâàäðàòîâ òðåõ ÷èñåë')

                 end

               else

writeln('×èñëî ñïîñîáîâ ðàâíî ', p)

    end.

 


Ê

çàäàíèþ 7

 

Program Task7;

    uses WinCrt;

    var

       m, n, i, k, k1 : longint;

    begin

       write('Ââåäèòå íà÷àëî ïðîìåæóòêà '); readln(m);

       write('Ââåäèòå êîíåö ïðîìåæóòêà '); readln(n);

       write('Èñêîìûå ÷èñëà ');

       for i := m to n do

         begin

            k := round(sqrt(i));

            k1 := round(sqrt(i*10 + 1));

               if (k*k = i) and (k1*k1 = i*10 + 1) then

write(i, ' ')

         end

    end.





Íà÷àëî  Íàçàä  Âïåðåä



Êíèæíûé ìàãàçèí