Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Выгуки
16.04.2023 19:51 •
Информатика
2. Отметьте галочкой основные компоненты таблицы СОРВ СС ЛЮДИ
Показать ответ
Ответ:
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 оценок)
Популярные вопросы: Информатика
Марина11133
11.08.2020 21:35
Сделать кроссворд по информатике, по первым трем главам,должно быть 16 вопросов,которые будут 8 по вертикали и 8 по горизонтали) 35 )...
dariagolubeva
26.02.2022 15:34
№1 найти разницу сумм цифр четырехзначного и трехзначного числа. вычитаем из большего ! №2 урок начинается в 9: 00. длительность урока 45 минут. перемены после 1,...
ilonaLoshakevic
24.07.2022 20:17
Решите ! это информатика,8 класс...
teenwolfgrrArina
09.09.2022 00:15
Составить схему алгоритма и программу * при изменении а от аначального до аконечного с шагом h=0.2 с использованием оператора repeat. * y=a^2+c-n/d+a...
си10
27.12.2022 14:26
С: по заданным значениям переменных вычислить значение выражения (x+1)^2+3(x+1) при х=1,3 в заранее...
hasanovratmir3
04.02.2020 00:26
Склавиатуры вводятся 3 числа x,y,z.вычислить значения выражений x+y+z и x*y*z и максимальное из них вывести на экран. в паскале...
катяшакотик
22.01.2022 03:34
6. b 2 . в программе «: =» обозначает оператор присваивания, знаки «+», «-», «*» и «/» — соответственно операции сложения, вычитания, умножения и деления. правила...
209439an
03.04.2023 14:18
Дано четырехзначное число n, проверить является ли сумма его цифр кратной 5?...
Ahela007
03.04.2023 14:18
Решение в паскале: дано предложение, все пробелы в нём заменить на *, а остальное заменить на - нужно менять саму строку, а не просто символы выводить...
kostyuchkova12
03.04.2023 14:18
Плз решить в qbasic 1.даны два действительных числа a и b. вывести первое число, если оно больше второго, и оба числа, если это не так. 2.даны два действительных...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.