Program Techies2001; uses crt; const n=10; var s:string; i,j:integer; x0,y0,xn,yn,xk,yk:real; begin S:='*** Alphaeus is thinking... ***'; for i:=1 to length(s) do begin write(s[i]); for j:=1 to 500000 do s[i]:=s[i]; end; writeln(); writeln('*** OK ***'); writeln(); writeln('На окружности с центром в точке (x0, y0) задана дуга с координатами начальной (xн,yн) и конечной (xк,yк) точек. Определить номера четвертей окружности, в которых находятся начальная и конечная точки.'); writeln('Введите координаты точек:'); write('x0='); readln(x0); write('y0='); readln(y0); write('xn='); readln(xn); write('yn='); readln(yn); write('xk='); readln(xk); write('yk='); readln(yk); if ((xn=x0) AND (yn=y0)) OR ((xk=x0) AND (yk=y0)) then writeln('Начало или конец дуги совпадают с центром') else begin if ((xn>x0) AND (yn>y0)) then writeln('Начало дуги находится в I четверти'); if ((xn<x0) AND (yn>y0)) then writeln('Начало дуги находится во II четверти'); if ((xn<x0) AND (yn<y0)) then writeln('Начало дуги находится в III четверти'); if ((xn>x0) AND (yn<y0)) then writeln('Начало дуги находится в IV четверти'); if ((xn=x0) AND (yn>y0)) then writeln('Начало дуги находится на оси Х на границе I и II четверти'); if ((xn<x0) AND (yn=y0)) then writeln('Начало дуги находится на оси Y на границе II и III четверти'); if ((xn=x0) AND (yn<y0)) then writeln('Начало дуги находится на оси Х на границе III и IV четверти'); if ((xn>x0) AND (yn=y0)) then writeln('Начало дуги находится на оси Y на границе I и IV четверти'); if ((xk>x0) AND (yk>y0)) then writeln('Конец дуги находится в I четверти'); if ((xk<x0) AND (yk>y0)) then writeln('Конец дуги находится вî II четверти'); if ((xk<x0) AND (yk<y0)) then writeln('Конец дуги находится в III четверти'); if ((xk>x0) AND (yk<y0)) then writeln('Конец дуги находится в IV четверти'); if ((xk=x0) AND (yk>y0)) then writeln('Конец дуги находится на оси Х на границе I и II четверти'); if ((xk<x0) AND (yk=y0)) then writeln('Конец дуги находится на оси Y на границе II и III четверти'); if ((xk=x0) AND (yk<y0)) then writeln('Конец дуги находится на оси Х на границе III и IV четверти'); if ((xk>x0) AND (yk=y0)) then writeln('Конец дуги находится на оси Y на границе I и IV четверти'); end; end.
Program P1; const R=150000000; begin Writeln('Длина орбиты Земли составляет ',2*Pi*R:0:0,' км.') end.
Результат выполнения программы: Длина орбиты Земли составляет 942477796 км.
program p2; var stazh,vozrast:integer; begin Write('Введите через пробел стаж и возраст: '); Readln(stazh,vozrast); if (stazh>=20) and (vozrast<=45) then Writeln('Принимается') else Writeln('Не принимается') end.
Тестовое решение: Введите через пробел стаж и возраст: 23 50 Не принимается
program p3; var i,j,k:integer; begin for i:=1 to 9 do for j:=0 to 9 do for k:=0 to 9 do if sqr(i)+sqr(j)+sqr(k)=105 then Write(i,j,k,' ') end.
Результат выполнения программы: 458 485 548 584 845 854
print(74 + 350 / (54-40))