Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
albinazagidulli
03.08.2020 23:18 •
Информатика
, информатика , буду очень благодарна
Показать ответ
Ответ:
Ram543
13.12.2020 06:29
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 оценок)
Ответ:
evgenijpetrov
08.03.2023 07:22
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 оценок)
Популярные вопросы: Информатика
alina0000000p
04.06.2021 12:26
Бағдарламалық қамтамасыз ету деген не? ...
камилла2009
27.03.2020 13:58
Алфавит азбуки Морзе состоит из 33 букв 10 цифр и 15 специальных символов. Какой длины будет самый длинный символ?...
atchaschinovр
22.05.2022 12:02
Создайте двумерный массив целого типа заданного размера, m строк и n столбцов. задайте значения элементов с генератора случайных чисел в пределах от 2 до 5. найдите сумму всех элементов...
boyko3333
10.11.2020 21:06
Решить задачу в виде блок-схемы. На камне подпись златая видна, как я у путника дальше судьба. Направо поедешь - быть тебе без коня, налево поедешь - потеряешь себя, а прямо ты можешь...
abduabdu2015
22.12.2021 18:24
Подумай и напиши!Какие правила соревнования по кегельрингузнаешь? Запиши их....
mansurislamov
14.07.2022 13:23
Поставьте предложения в complex object 1)ann (to have) to look for this information 2)jimmy (not to have) to look up this information 3)why you (to have) to look after your sister...
Ignat20032612
14.07.2022 13:23
Автор букваря созданого в конце хvii (17) века...
екатерина698
14.07.2022 13:23
Вам поручено подготовить развёрнутый ответ по теме «мировая торговля». составьте план, в соответствии с которым вы будете освещать эту тему. план должен содержать не менее трёх пунктов,...
Школа5101
14.07.2022 13:23
Гипотенуза прямоугольного треугольника на 3 больше одного из катетов, а второй катет равен 6. найдите гипотенузу....
stasya10687
14.07.2022 13:23
Составьте формулы водородных соединений элементов-неметаллов: фосфора, кислорода, серы. укажите соединение с наиболее ярко выраженными кислотными свойствами....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
{
if (tnum < tden)
{
temp = tnum;
tnum = tden;
tden = temp;
}
tnum = tnum - tden;
}
gcd = tden; //вычисляем наибольший общий делитель
numerator = numerator / gcd; //делим числитель и знаменатель на
НОД, получаем сокращенную дробь
denominator = denominator / gcd;
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.