Ïðåîáðàçîâàíèå òèïîâ - ÷àñòü 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.