Система задач и упражнений по языку программирования Pascal. Часть 1 - 48 стр.

UptoLike

ВУЗ: 

ЯГПУ им. Ушинского | Ярославль

Составители: 

Рубрика: 

48
Файл PRIMER7.pas
program lab6;
uses crt;
var a,i,s,n,k,b,d:integer;
soob:string;
y,x:real;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
{ 2.1 while -> for }
{soob:='no';
i:=2;
while i<=sqrt(a) do begin
if a mod i=0
then soob:='yes';
i:=i+1;
end;
writeln(soob);}
{ 2.2 repeat -> for }
{i:=1;
repeat
i:=i+1;
if a mod i=0
then writeln (i);
until i>a/2;}
{ 2.3 for -> repeat }
{s:=0;
for i:=1 to trunc(a/2) do
if a mod i=0
then s:=s+i;
if s=a
then writeln('yes')
else writeln('no');}
{ 2.4 repeat -> for }
{n:=1; k:=10;
repeat
k:=k*10;
n:=n+1;
until a<=k;
writeln(n);}
{ 2.5 repeat -> for }
{k:=0;
repeat
s:=a-trunc(a/10)*10;
a:=trunc(a/10);
k:=(k+s)*10;
until a=0;
writeln (k/10:2:0);}
{ 2.6 while -> for }
{y:=a;n:=1;
while n<=6 do
begin x:=y;
y:=(5+x)/2;
n:=n+2;
end;
writeln(y:5:4);}
{ 2.7 for -> while }
{for i:=1 to a do
begin
if trunc(a/i)=a/i
then writeln(i);
i:=i+1;
end;}
{ 2.8 while -> repeat }
{if b>a
then begin a:=a+b;
b:=a-b;
a:=a-b; end;
writeln('a=',a,' b=',b);
k:=a mod b;
n:=b;
while k<>0 do begin
d:=k;
k:=n mod k;
n:=d;
end;
writeln(n);}
end.

Страницы