1(a) Program Zadanie; var a,b,c,d:integer; begin writeln('введите два числа'); readln(a,b); c:=a+b; writeln(c); readln; d:=a-b; writeln(d); readln; end.
b) Program Zadanie; var a,b,c,d:integer; begin writeln('введите два числа'); readln(a,b); c:=a+b; d:=a-b; writeln(c,d); readln; end.
c) Program Zadanie; var a,b,c,d:integer; begin writeln('введите два числа'); //здесь вводим два числа readln(a,b); c:=a+b; d:=a-b; writeln(c,d); readln; end.
2. Program Zadanie; var a,b,c,d:integer; begin writeln('введите три числа'); readln(a,b,c); d:=a*b*c; writeln(d); readln; end.
3. Program Treugol; var a,b,c,d:real; begin writeln('введите два числа'); readln(a,b); c:=2*(a+b); d:=a*b; writeln(c,d); readln; end.
4.
Program Goda; var R:real; begin write('введите R'); readln(R); d:=R*356; c:=d*24; m:=c*60; s:=m*60; writeln(d); writeln(c); writeln(m); writeln(s); readln; end.
Uses crt; var p,r: array [1..10000] of real; x,y,t,f,k: integer; sum,sr,ch,min: real; begin sum:=0; k:=0; f:=1; write('T='); readln(t); for x:=1 to t do begin write('p[',x,']:'); readln(p[x]); end; min:=p[1]; for x:=1 to t do if p[x]>0 then begin sum:=sum+p[x]; inc(k); end; for x:=1 to 9 do if p[x]<min then min:=p[x]; sr:=sum/k; ch:=min/sr; for x:=1 to t do if p[x]>ch then begin r[f]:=p[x]; inc(f); end; writeln; for y:=1 to f-1 do writeln('r[',y,']:',r[y]); readln; end.
