Program a1; program a1; var P,A,B,C: integer




НазваниеProgram a1; program a1; var P,A,B,C: integer
Дата конвертации06.02.2013
Размер444 b.
ТипПрезентации


program a1;

  • program a1;

  • var P,A,B,C: integer;

  • begin

  • write('p='); read(p);

  • write('A='); read(A);

  • write('B='); read(B);

  • C:=p-(A+B);

  • writeln('C=',C)

  • end.


program a2;

  • program a2;

  • var P,A:integer;

  • B:real;

  • begin

  • write('p='); read(p);

  • write('A='); read(A);

  • B:=(p-A)/2;

  • writeln('B=',B:5:3)

  • end.



program a3;

  • program a3;

  • var B,A,C: integer;

  • B1:real;

  • begin

  • write('C='); read(C);

  • write('A='); read(A);

  • write('B='); read(B);

  • B1:=6*A*B/C;

  • writeln('B1=',B1:5:3)

  • end.



program a3;

  • program a3;

  • var B,A,C: integer; p,s: real;

  • begin

  • write('C='); read(C);

  • write('A='); read(A);

  • write('B='); read(B);

  • P:=(A+B+C)/2;

  • writeln('p=',p:5:3);

  • S:=sqrt((p-a)*(p-b)*(p-c)*p);

  • writeln('s=',s:5:3)

  • end.



program a5;

  • program a5;

  • var A,s,v:integer;

  • begin

  • write('A='); read(A);

  • s:=6*a*a; v:=a*a*a;

  • writeln('s=',s,' v=',v)

  • end.



program a6;

  • program a6;

  • var d:integer;

  • a,s:real;

  • begin

  • write('d='); read(d);

  • a:=d/sqrt(2); s:=a*a;

  • writeln('a=',a:5:3,' s=',s:5:3)

  • end.



Похожие:

Program a1; program a1; var P,A,B,C: integer iconЗадача: определить является ли простым заданное число program a1; var m,i,k: integer; begin read(m); for i:=1 to m do if m mod i = 0 then k:=k+1
Определить, есть ли среди задан­ных чисел «близнецы», т е простые числа, разность между ко­торыми равна двум
Program a1; program a1; var P,A,B,C: integer iconProgram prim3; program prim3
В заданном числовом промежутке ([20;50]∩[150;200]) найти числа, кратные 6, и посчитать их количество
Program a1; program a1; var P,A,B,C: integer iconUndersök vilka program som visas på ryska tv-kanaler. Sök reda på ett program som du vill se från varje kanal

Program a1; program a1; var P,A,B,C: integer iconProgram

Program a1; program a1; var P,A,B,C: integer iconProgram n1

Program a1; program a1; var P,A,B,C: integer icon* Jacobi-1 program */ /* Jacobi-1 program *

Program a1; program a1; var P,A,B,C: integer iconProgram graf; Program graf

Program a1; program a1; var P,A,B,C: integer iconHoliday Program 2005 Techniques of Teaching

Program a1; program a1; var P,A,B,C: integer iconC:\Program Files\Intel\Composerxe-2011 \Documentation\en us\mkl\mkl userguide\ index htm

Program a1; program a1; var P,A,B,C: integer iconScientific Visualization hpc school July 2009, Moscow Tiled Images
Строит изображения со спутников Defense Meteorological Satellite Program на поверхности Земли
Разместите кнопку на своём сайте:
dok.opredelim.com


База данных защищена авторским правом ©dok.opredelim.com 2015
обратиться к администрации
dok.opredelim.com
Главная страница