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

Составить программу в pascal для нахождения корней квадратного уравнения ax^2+bx+c=0

👇
Ответ:
marinichnatash
marinichnatash
17.07.2020
Uses crt;
var
    d, a, b, c, x1, x2: real;

begin
    writeln('Введите a, b, c');
    readln(a, b, c);
    d := b * b - 4 * a * c;
    
    if d > 0 then
    begin
        x1 := (-b + sqrt(d)) / (2 * a);
        x2 := (-b - sqrt(d)) / (2 * a);
        writeln('x1 = ', x1:2:2);
        writeln('x2 = ', x2:2:2);
    end
    else if d = 0 then
    begin
        x1 := -b / (2 * a);
        writeln('x = ', x1:2:2);
    end
    else
        writeln('Нет действительных корней');
end.
4,5(13 оценок)
Открыть все ответы
Ответ:
mishac1470
mishac1470
17.07.2020

ответ:

представители профессии электромонтера являются достаточно востребованными на рынке труда. несмотря на то, что вузы выпускают большое количество специалистов в этой области, многим компаниям и на многих предприятиях требуются квалифицированные электромонтеры.

объяснение: большинство опрошенных считает, что профессию электромонтера нельзя назвать редкой, в нашей стране она достаточно распространена. уже несколько лет на рынке труда наблюдается спрос на представителей профессии электромонтера, несмотря на то, что специалистов каждый год выпускается немало.

4,6(76 оценок)
Ответ:
хех60
хех60
17.07.2020

var j, a, b, n: integer;

label 1;

begin

1: randomize;

  a: = random (9);

  b: = random (9);

  write (a, '*', b, '=');

  read (n);

  if n = (a * b) then writeln ('відповідь вірний! ')

            else writeln ('відповідь неправильний! ');

  writeln ('продовжуватимеш? ');

  writeln ('якщо так то натисни 1');

  writeln ('якщо немає то натисни 2');

  read (j);

  if j = 1 then goto 1;

  if j = 2 then writeln ('до побачення! ');

end.

начебто так, точно не пам'ятаю.

4,6(89 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ