М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

записать 2 уравнения в паскале


записать 2 уравнения в паскале

👇
Ответ:
dashaegirova
dashaegirova
11.01.2023
Уравнение вида a⋅x2 + b⋅x + c = 0 - квадратное уравнение.

a, b, c - действительные числа, a ≠ 0.

Для того чтобы вычислить корни квадратного уравнения, нужно сначала найти дискриминант.

D = b2 - 4⋅a⋅c;

если D < 0, то квадратное уравнение не имеет корней;
если D = 0, то уравнение имеет один действительный корень(иногда говорят, что корней два, но они одинаковые):
x1 = x2 = -b / (2⋅a);
если D > 0, то уравнение имеет два действительных корня:
x1 = (-b + √D) / (2⋅a);
x2 = (-b + √D) / (2⋅a).
4,8(28 оценок)
Открыть все ответы
Ответ:
bokshitskayan
bokshitskayan
11.01.2023

первое:

a = int(input('A: '))

b = int(input('B: '))

if a < b:

   for i in range(a,b+1):

       print(i)

elif a > b:

   for i in range(-a,-b+1):

       print(i*-1)

else:

   print(a)

второе:

n = int(input('n: '))

summa = 0

for i in range(1,n+1):

   ft = 1

   for v in range(2,i+1):

       ft *= v

   summa += ft

print(summa)

третье:

a = int(input('Высота: '))

b = input('Символ: ')

for i in range(1, a):

   string = ''

   for v in range(1, i):

       string += b

   string += '||'

   for v in range(1, i):

       string += b

   print(string)

print('||')

Если есть вопросы, пиши

4,4(47 оценок)
Ответ:
angelochec1999
angelochec1999
11.01.2023
Uses
  Crt;
var
  i,n:integer;
  a,s:real;
begin
  Writeln('Вычисление среднего арифметического');
  Writeln('последовательности действительных чисел');
  Write('Введите количество чисел последовательности ->');
  Readln(n);
  Writeln('Введите последовательность. После ввода каждого числа нажмите Enter');
  s:=0;
  for i:=1 to n do
  begin
    Read(a);
    s:=s+a
  end;
  Writeln('Среднее арифметическое введенной последовательности: ',s/n);
  Write('Для завершения работы программы нажмите Enter');
  Readkey
end.

Тестовое решение:
Вычисление среднего арифметического
последовательности действительных чисел
Введите количество чисел последовательности ->5
Введите последовательность. После ввода каждого числа нажмите Enter
5.4
7.8
3.0
1.5
2.3
Среднее арифметическое введенной последовательности: 4
Для завершения работы программы нажмите Enter

Для версии Pascal.ABC.Net:
var
  i,n:integer;
  a,s:real;
begin
  Writeln('Вычисление среднего арифметического');
  Writeln('последовательности действительных чисел');
  Write('Введите количество чисел последовательности ->');
  Readln(n);
  Writeln('Введите последовательность. После ввода каждого числа нажмите Enter');
  s:=0;
  for i:=1 to n do
  begin
    Read(a);
    s:=s+a
  end;
  Writeln('Среднее арифметическое введенной последовательности: ',s/n)
end.
 
4,4(86 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ