Import java.util.*;
import java.io.*;
import java.lang.*;
class Program {
public static void main(String[] args) {
Scanner Scan = new Scanner(System.in);
int[] A = new int[10];
for(int i = 0; i < 10; i++)
A[i] = 2*i+1;
System.out.print(Arrays.toString(A));
}
}
Var
age, height, ideal_weight: real;
begin
readln(age, height);
ideal_weight := height - 100;
if age < 20 then
ideal_weight := ideal_weight - 5
else if age > 45 then
ideal_weight := ideal_weight + 5;
writeln(ideal_weight);
end.
1.program plo;
program plo;
var a, b, y: integer;
s:real;
const pi=3.14;
begin
writeln('Длина сторон: ');
readln(a, b);
writeln('Угол: ');
readln(y);
s:=0.5*a*b*sin(y*pi/180);
writeln('S= ', s)
end.
2. program V;
var a, b: integer;
s1, s2:real;
const pi=3.14;
begin
writeln('Высота H= ');
readln(a);
writeln('Радиус R= ');
readln(b);
s1:=pi*a*sqr(b);
s2:=pi*a*sqr(b)/3;
writeln('Объем цилиндра = ', s1);
writeln('Объем конуса = ', s2);
end.
Uses Crt;
Var a,b,h:real;
Begin
ClrScr;
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('h = ');ReadLn(h);
Repeat
WriteLn('F(',a,') = ',Sin(1/a)+2);
a:=a+h;
Until a > b;
ReadKey
End.
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadReal('a=');
var y:real;
if a<0 then y:=-a else y:=-a*a;
Writeln('f(a)=',y)
end.
<u>Примеры</u>
a= 3.7
f(a)=-13.69
a= -1.15
f(a)=1.15
begin
var a:=ReadReal('a=');
var y:real;
if a<-1 then y:=1/Sqr(a)
else if a<2 then y:=a*a
else y:=4;
Writeln('f(a)=',y)
end.
<u>Примеры</u>
a= -2
f(a)=0.25
a= 0.7
f(a)=0.49
a= 3.14
f(a)=4
