Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
alex07042004
04.03.2021 10:35 •
Информатика
Спроектировать и класс для обработки исключительно ситуация.
Показать ответ
Ответ:
sashaloxas
08.05.2023 04:48
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 оценок)
Ответ:
66vdv1
16.04.2021 06:15
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 оценок)
Популярные вопросы: Информатика
burkhanovshukh
23.10.2022 02:42
1. Найти Х, при котором равны информационные объемы 32х+3 килобайт и 256х мегабайт.2. В велокроссе участвуют 779 спортсменов. Специальное устройство регистрирует прохождение...
moscow1506
22.01.2021 02:07
Вкакой системе счисления справедливо равенство 32*6=234?...
sofialesiuk
13.11.2021 22:16
Вариант 1 А1. Неолитическая революция на Ближнем Востоке на¬чалась: 1) 1,5 млрд лет назад 3) в IX тыс. до н. э. 2) 40 тыс. лет назад 4) в IV тыс. до н. э. А2. В период...
NIK202010
15.04.2020 00:58
1. Послушай чтение учителя. Какое отношение к родной земле передать выделенные слова? Земля - одно из величайших богатств природы. Во все времена землю называли матушкой....
666223
19.05.2023 12:00
Доповідь про Марусю Чурай на сторінку...
Mandarinka0001
06.03.2020 06:41
Из под камней выбегают зелёные ящерицы ,они мигают сонными глазками . Сделать синтаксический разбор...
Jezzyfeed1
04.12.2022 20:33
Синтаксический вот широким хороводом рассеялись на поляне красные мухоморы...
сссссср222
29.06.2022 23:07
Найдавніші форми епосу...
IrynaShchutska
04.03.2020 03:56
Решите по физике задачу...
messageman1
02.07.2021 11:03
Краткий конспект этого видео: https://youtu.be/f3hbJz2PDfo...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.