Ваши вопросы, ответы и предложения!
Используем форму для сохранения решений задач модулей. Называйте файлы в соответствии с содержанием. Чтобы добавить файл, нажимаем "добавить"... Скачать файл не сложно и поместить в папку BIN для просмотра тоже не трудно.Например:
Практикум 7 Вложенные циклы. Задача 1.1
ОтветитьУдалитьprogram Modul;
const
eps=1e-8;
var
f,g:text;
m:byte;
v,n,i,j,k,b,c,d,er,dhun,hun,dec,one:LongInt;
a,x0,x1,t,s,p,Xmin,Xmax,Ymin,Ymax:real;
u1,u2,u3,rez:boolean;
yes,no:string;
l:Char;
begin
assign(f,'input.txt' );
reset(f);
assign(g,'output.txt');
rewrite(g);
readln(f,c,d);
yes:='Yes';
no:='No';
if c=2 then
begin
write(g,c);
c:=c+1;
end;
for j:=c to d do
begin
if (j mod 2) <> 0 then
begin
a:=0;
x0:=0;
x1:=j;
repeat
x0:=x1;
x1:=(x0+j/x0)/2;
until abs(x1-x0)<1.0;
v:=round(x1);
{write(g,j);
write(g,' ');
writeln(g,v);}
i:=1;
while (a<2) and (i<=v) do
begin
if (j mod i) = 0 then a:=a+1;
i:=i+1;
end;
if a<2 then
begin
write(g,' ');
write(g,j);
end;
end;
end;
close(f);
close(g);
end.