var
y: <em>real</em>;
begin
read(y);
writeln(System.Math.Pow(System.Math.Tan(<em>y * Pi / 180</em>), 3));
<span>end.</span>
Program psck;
vara,b: real;
begin read(a,b); b:=10*10*10*10*a-3*b/5; write('Полученный результат - ',b);end.
Везде значения вводятся с клавиатуры!
на java
если изучали массив:
public class qwert {<span>
public static void main(String args[])</span><span> {</span><span>
Scanner scn = new Scanner(System.in);</span><span>
int[] a = new int[5];</span><span>
int k = 0;</span><span>
for (int i = 0; i < 5; i++)</span><span> {
</span><span> a[i] = scn.nextInt();</span><span>
k = k + a[i];
</span><span> if (i == 4)</span><span>
System.out.println(k/i);</span><span>
}</span><span>
}</span><span>}
если не изучали массив:
public class qwert {<span>
public static void main(String args[])</span><span> {</span><span>
Scanner scn = new Scanner(System.in);</span><span>
int a = scn.nextInt();
</span><span> int b = scn.nextInt();</span><span>
int c = scn.nextInt();
</span><span> int d = scn.nextInt();</span><span>
int e = scn.nextInt();
</span><span> int s = (a + b + c + d + e) / 5;</span><span>
System.out.println(s);
</span><span> }</span><span>}
на паскале через массив:
var a:array [1..5] of integer;
i:integer;
s:real;
begin
for i := 1 to 5 do
begin
readln(a[i]);
s := s + a[i];
if i = 5
then
write (s/i);
end;
<span>end.
не через масивы:
var a,b,c,d,e :integer;
s:real;
begin
readln(a,b,c,d,e);
s := (a+b+c+d+e)/5;
write(s);
<span>end.</span></span></span></span>
Var m,b,ost,c,result:integer;
////M<B
begin
ost:=1;
writeln ('Введите два числа');
readln(b,m);
while ost<>0 do
begin
if m>b then
begin
c:=m;
m:=b;
b:=c;
end;
ost:= b mod m;
result:=m;
b:=ost;
end;
writeln('НОД: ',m);
end.
