Дайте короткий ответ: - таблица, сформированная на основе одной или нескольких таблиц базы данных, которая содержит информацию, что удовлетворяет некий критерий.
var a,b,x,z,sra,srg:real; begin writeln('Введите 4 числа'); read(a,b,x,z); sra:=(a+b+x+z)/4; srg:=power(a*b*x*z, 1/4); writeln('Среднее арифметическое этих чисел =',sra); writeln('Среднее геометрическое этих числе =',srg); end.
Задача №2
var a,b,sra,srg:real; begin writeln('Введите 2 числа'); read(a,b); sra:=(a+b)/2; srg:=power(a*b, 1/2); writeln('Среднее арифметическое этих чисел =',sra); writeln('Среднее геометрическое этих числе =',srg); writeln('Модули этих чисел a=',abs(a), ' b=',abs(b)) end.
Задача №3
var a,b,c:real; begin writeln('Введите длину катетов и гипотенузы соотвественно'); read(a,b,c); if a=0 then a:=sqrt(sqr(c)-sqr(b)); if b=0 then b:=sqrt(sqr(c)-sqr(a)); if c=0 then c:=sqrt(sqr(a)+sqr(b)); writeln('Площадь треугольника =',a*b*0.5); writeln('Периметр треугольника =',a+b+c); end.
n, x = map(int, input().split())
array = ['0'] + list(i for i in range(1, n+1))
while array[1] != x:
if array.index(x) % 2 == 0:
for g in range(1, len(array)):
if g % 2 != 0:
array[g] = ''
print("стереть все числа, стоящие на нечётных позициях")
else:
for g in range(1, len(array)):
if g % 2 == 0:
array[g] = ''
print("стереть все числа, стоящие на чётных позициях")
array = list(filter(bool, array))
var a,b,x,z,sra,srg:real;
begin
writeln('Введите 4 числа');
read(a,b,x,z);
sra:=(a+b+x+z)/4;
srg:=power(a*b*x*z, 1/4);
writeln('Среднее арифметическое этих чисел =',sra);
writeln('Среднее геометрическое этих числе =',srg);
end.
Задача №2
var a,b,sra,srg:real;
begin
writeln('Введите 2 числа');
read(a,b);
sra:=(a+b)/2;
srg:=power(a*b, 1/2);
writeln('Среднее арифметическое этих чисел =',sra);
writeln('Среднее геометрическое этих числе =',srg);
writeln('Модули этих чисел a=',abs(a), ' b=',abs(b))
end.
Задача №3
var a,b,c:real;
begin
writeln('Введите длину катетов и гипотенузы соотвественно');
read(a,b,c);
if a=0 then a:=sqrt(sqr(c)-sqr(b));
if b=0 then b:=sqrt(sqr(c)-sqr(a));
if c=0 then c:=sqrt(sqr(a)+sqr(b));
writeln('Площадь треугольника =',a*b*0.5);
writeln('Периметр треугольника =',a+b+c);
end.