const nn=10;
var
a:array[1..nn] of integer;
i,n:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i],' ');
writeln;
for i:=n downto 1 do write(a[i],' ');
end.
const nn=50;
var
a:array[1..nn] of integer;
i,n:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do readln(a[i]);
writeln;
for i:=1 to n do if i mod 2 =0 then write(a[i],' ');
end.
№1
var a, b, c, i:integer;
y, x :real;
begin
x:=-2;
while x<>2 do
begin
writeln (x, ' ', (exp(x) + exp(-x))/2-x*x*x*x);
x:=x+0.25;
end;
<span>end.
Первый номер, чтобы не было нарушения.
№2</span>
var a, b, c, i:integer;
y, x :real;
begin
x:=0;
while x<>4 do
begin
writeln (x, ' ', sqrt(x*x+5*x+3));
x:=x+0.25;
end;
end.
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
Program wz;var a,b:integer;x:real;
begin
writeln('Введите a ');
readln(a);
writeln('Введите b');
readln(b);
x:=(a+b)/(a*b);
writeln('x=',x);
end.
from random import randint as random
m = [random(1,100) for i in range(1,30+1)]
s = -1
for i in range(0,30):
print('{:3.0f}'.format(m[i]))
for i in range(0,28):
if m[i]+m[i+1]+m[i+2]>s:
a = m[i]
b = m[i+1]
c = m[i+2]
s = a + b + c
print(' a b c')
print('{:3.0f}'.format(a))
print('{:3.0f}'.format(b))
print('{:3.0f}'.format(c))