Var a:array[1..20] of real;
var out:real;
var i:integer;
begin
out:=0;
for i:=1 to 20 do
begin
a[i]:=random();
if abs(out)<abs(a[i])
then out := a[i];
end;
write(out);
end.
1111011
6 единиц, и снова здравствуйте!
Янт, ты любишь разговаривать по телефону? (Да\Нет)
Янт, ты разговариваешь? (Да\Нет)
—————————————————————
Янт, кому ты звонишь? (Нельзя ответить да \нет)
Янт, придумай сам этот вопрос.
1)
var x,y : integer;
begin
read (x);
y := 5 * x * x + 16 * x * x + 18 * x - 29;
write (y);
end.
2)
var a,b : integer;
c,p,s : real;
begin
readln (a,b);c := sqrt(a*a + b*b);
p := a + b + c;s := (a*b)/2;
write ('Периметр равен ',p,', площадь равна ',s, '.');
end.
3)
var a,b,c : integer;
begin
readln (a,b,c);
write ((a+b)/(a-b) + sqrt(c/2));
end.
Пишу на QBasic
CLS
INPUT N
C=1
FOR I = 1 TO N
C=C*I
NEXT I
PRINT C