Решить 8 класс по информатике! решаются они через турбо паскаль. 1)найти колличество нечетных делителей натурального числа,больших к(к вводятся с клавиатуры). 2)найдите все натуральные числа х,у,z из интервала от 1 до 20,для которых выполняется равенство : ху(квадрат)=z(квадрат) надоо !
var s:integer;
i,k:longint;
begin
readln(k);
i:=3;
while i<k-1 do begin
i:=i+2;
if k div i=k/i then inc(s);
end;
writeln(s,' delitelei');
end.
var i,j:integer;
begin
for i:=1 to 20 do
for j:=1 to 20 do
if sqr(j)*i<20 then writeln('x=', i,' y=', j,' z=', sqr(j)*i);
end.