Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Denze111
08.11.2021 21:29 •
Информатика
При якій умові об’єкт переміститься на 10 кроків? а)На клавіатурі не потрібно натискати жодної клавіші
б)Потрібно доторкнутися вказівником миші до об'єкта
в)На клавіатурі натиснуто клавішу пропуск та стрілку вниз одночасно
Показать ответ
Ответ:
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 оценок)
Популярные вопросы: Информатика
Slado4ka
25.04.2023 03:58
В таблице змейкой размещены три слова, которые связаны с темой урока (их можно читать по горизонтали и вертикали, но не по диагонали). Используются все буквы из таблицы....
polina1362
15.11.2021 06:45
Какие программы могут входить в программное обеспечения компьютера...
asca82
31.05.2022 20:30
1)для записи текста использовался 256 символьный алфавит, каждая страница содержит 30 строк, по 70 символов в строке. какой объём информации содержит 5 страниц текста?...
Кокс383939484
16.08.2020 18:15
Визначте відносну висотуозера сіре по відношенню до озера чарівне у метрах...
silvi82
28.01.2022 02:38
Скласти кроссворд з теми Рослинництво ....
нина568
29.11.2020 03:06
Французская революция XVIII в. 1.Французская революция открыла новую эпоху. Франция превратилась в республику. Но какова цена этого прогресса? Прогресс утверждался при...
Ekaterinakozlik
07.07.2020 22:35
7-тапсырма, 88-бет Дополнительно составить по два примера виды залога...
Sopfia3333333333333
18.05.2023 00:00
100б 1) какова судьба территорий и государств, которые были побеждены французами в 1793-1798гг? 2) Найдите на карте «республики-сёстры» и новые департаменты. Перечислите...
ellavinokurova
27.11.2021 10:32
Дополнить предложения: Растения имеют неограниченный рост, который обеспечивает …….. ткани. Покровные ткани – это ткани, которые находятся на ………. Органов растения и...
черныйхащ
23.02.2022 01:10
Поясніть HIINI І відрізняється товар від продукту (за особливостей)?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.