В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
almaz2008
almaz2008
03.01.2023 23:49 •  Информатика

Оформление текста в MS Word Как добавить специальные символы?
Что такое абзац для Word?
Какие параметры для абзаца могут форматироваться и как ?
Как изменить у абзаца размер отступа?
Как задать границы к абзацу?
Как получить информацию о параметрах формата абзаца?
Как разделить абзац на два? Соединить?
Как при вводе текста перейти на новую строку того же абзаца?
Как обрамить текст, абзац, используя команды меню?
Как сделать заливку текста или абзаца, используя панель инструментов?
Как сделать заливку текста или абзаца, используя команды меню?
Каким образом можно начать новую страницу, используя команду меню?
Каким образом можно начать новую страницу, используя клавиатуру?
Как задать рисунок для границы страницы?
Как можно вставить рисунок горизонтальной линии?

Показать ответ
Ответ:
Максуд22861827
Максуд22861827
11.03.2021 00:23
While (tnum != 0)  //tnum, tden - числитель и знаменатель искомой                                    дроби
    {
        if (tnum < tden)
        {
            temp = tnum;
            tnum = tden;
            tden = temp;
        }
        tnum = tnum - tden;
    }
    gcd = tden;  //вычисляем наибольший общий делитель
    numerator = numerator / gcd;  //делим числитель и знаменатель на
                                                      НОД, получаем сокращенную дробь
    denominator = denominator / gcd;
0,0(0 оценок)
Ответ:
dashanarmania
dashanarmania
25.05.2022 00:19
Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
 then writeln('Не квадратное уравнение!')
 else begin
      d:= sqr(b)-4*a*c;
      if d < 0 then writeln('Нет корней')
               else begin
                    x1:= (-b+sqrt(d))/2*a;
                    x2:= (-b-sqrt(d))/2*a;
                    writeln ('X1 =',x1,'  X2 =',x2);
                    end;
      end;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота