Файл PRIMER1.pas

program upr1;

uses crt;

var f,i,o:string[15]; v,g,year:integer;

begin

clrscr;

write('Введите номер текущего года ');readln(year);

write('Введите Вашу фамилию ');readln(f);

write('Введите Ваше имя ');readln(i);

{write('Введите Ваше отчество ');readln(o);}

write('Введите Ваш возраст ');readln(v);

write('Введите номер Вашей группы ');readln(g);

 

gotoxy (15,15);write('Ваша фамилия - ',f);

gotoxy (1,17);write('Вас зовут ',i);

{gotoxy (5,18);write('Ваше отчество ',o);}

gotoxy (51,20);write('Вы родились в ',year-v,’ году’);

gotoxy (11,25);write('Вы учитесь в ',g,’ группе’);

end.

 

Файл PRIMER2.pas Begin clrscr; soob:='Круговой сектор'; write(soob,' ','R=');readln(r); write('alpha=');readln(alpha); s:=r*r*alpha/2; writeln('S=',S:3:0); writeln('l=',2*S/r:5:2); end.	Файл PRIMER3.pas program upr4; uses crt; var a,b,c:real; begin {Соотношения в прямоугольном треугольнике} write('a=');readln(a); write('b=');readln(b); c:=sqrt(a*a+b*b); write('c=',c); end.
Файл PRIMER2à.pas program upr4; uses crt; var r,s,alpha:real; soob:string[15]; begin clrscr; soob:='Круговой сектор'; write(soob,' ','R=');readln(r); write('alpha=');readln(alpha); s:=r*r*alpha/2; writeln('S=',S:9); writeln('l=',2*S/r:5:2);end.	Файл PRIMER4.pas Program upr1; Uses crt; var b:char; begin clrscr; write('input letter ');readln(b); writeln(b+b+b+b+b+b); writeln(b,' ',b); writeln(b,' ',b); writeln(b,' ',b); writeln(b,' ',b); writeln(b,' ',b); writeln(b+b+b+b+b+b); end. Файл 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.