Задание 1:
var a,b,c,p,s:real;
begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
write('Введите c: '); readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*((p-a)*(p-b)*(p-c)));
writeln('Площадь: ',s);
end.
Задание 2:
а)
var a:real;
a:=1/(1+(1/(2+(1/(2+(3/5;
writeln(a);
ответ: 0.704545454545454
б)
var
a,b,c,d:real;
d:=(((-b)+sqrt(sqr(b)-4*a*c))/2*a);
writeln(d);
#a)
print('Input n: ')
n = input()
if int(n) < 0:
print('Incorrect input')
else:
sum = 0
for i in range(int(n) + 1):
sum += i
print('Sum is ', sum)
##
#b)
sum += i*i
#c)
for i in range(0, int(n) + 1, 2):
#d)
for i in range(10, 100, 1):
Задание 1:
var a,b,c,p,s:real;
begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
write('Введите c: '); readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*((p-a)*(p-b)*(p-c)));
writeln('Площадь: ',s);
end.
Задание 2:
а)
var a:real;
begin
a:=1/(1+(1/(2+(1/(2+(3/5;
writeln(a);
end.
ответ: 0.704545454545454
б)
var
a,b,c,d:real;
begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
write('Введите c: '); readln(c);
d:=(((-b)+sqrt(sqr(b)-4*a*c))/2*a);
writeln(d);
end.
#a)
print('Input n: ')
n = input()
if int(n) < 0:
print('Incorrect input')
else:
sum = 0
for i in range(int(n) + 1):
sum += i
print('Sum is ', sum)
##
#b)
print('Input n: ')
n = input()
if int(n) < 0:
print('Incorrect input')
else:
sum = 0
for i in range(int(n) + 1):
sum += i*i
print('Sum is ', sum)
##
#c)
print('Input n: ')
n = input()
if int(n) < 0:
print('Incorrect input')
else:
sum = 0
for i in range(0, int(n) + 1, 2):
sum += i
print('Sum is ', sum)
##
#d)
sum = 0
for i in range(10, 100, 1):
sum += i
print('Sum is ', sum)