Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
ivanivanov2007r
14.12.2020 18:47 •
Информатика
Даны действительные числа n и m. меньшее из этих двух чисел заменить их полусуммой, а большее удвоенным произведением.
👇
Увидеть ответ
Ответ:
margaian2005
14.12.2020
Uses crt;
var g: Integer;
n,m: Real;
Begin
Write('Введите два числа: ');
Readln(m,n);
If m>n then begin
g:=n;
n:=(m+n)/2;
m:=2*m*n;
end
else begin
g:=m;
m:=(m+n)/2;
n:=2*m*n;
end;
Writeln('m = ', m, ' n = ', n);
End.
4,4
(25 оценок)
Открыть все ответы
Ответ:
riaskor
14.12.2020
Да без проблем!
gcd(77164189341682084692124351766096496451364840671846455244761, 46668734283684548617206823665104829826096872771679324943689);
448643232670469
a:=ifactor(77164189341682084692124351766096496451364840671846455244761);
4
(3) (11) (503) (809) (573384723060967) (448643232670469) (492166512383869) (1680979)
b:=ifactor(46668734283684548617206823665104829826096872771679324943689);
(781199815286623) (283598494080047) (448643232670469) (39869)
(11776697129)
4,6
(10 оценок)
Ответ:
спортжизнь
14.12.2020
Да без проблем!
gcd(77164189341682084692124351766096496451364840671846455244761, 46668734283684548617206823665104829826096872771679324943689);
448643232670469
a:=ifactor(77164189341682084692124351766096496451364840671846455244761);
4
(3) (11) (503) (809) (573384723060967) (448643232670469) (492166512383869) (1680979)
b:=ifactor(46668734283684548617206823665104829826096872771679324943689);
(781199815286623) (283598494080047) (448643232670469) (39869)
(11776697129)
4,8
(47 оценок)
Это интересно:
С
Семейная-жизнь
28.05.2021
Как помочь родителям, которые похоронили своего ребенка: советы и рекомендации...
З
Здоровье
03.04.2021
Как вылечить прищемленный палец: лечение дома и медицинские советы...
Д
Дом-и-сад
08.01.2020
Как подготовить квартиру к отъезду: советы от профессионалов...
Т
Транспорт
29.01.2021
Как правильно заботиться о мотоцикле и сделать его долговечным...
Ф
Финансы-и-бизнес
22.04.2022
Как открыть предприятие малого бизнеса: полный гайд...
К
Компьютеры-и-электроника
07.06.2022
Как просто и быстро очистить Корзину на iPhone...
С
Стиль-и-уход-за-собой
08.07.2022
Как правильно рисовать кошачий глаз при помощи подводки для глаз?...
О
Образование-и-коммуникации
27.10.2021
Как вести дневник: польза для здоровья и советы по созданию своего...
С
Стиль-и-уход-за-собой
01.12.2020
Как сделать неформальную стрижку: шаг за шагом инструкция для начинающих...
Д
Дом-и-сад
22.01.2023
Как отремонтировать дом и создать уютное жилье?...
Новые ответы от MOGZ: Информатика
mkudrya
04.01.2023
Запишите в десятичной системе счисления целое число, если дан его дополнительный код.11011011...
Bonya97
29.03.2021
Вмассиве поменять 1 минимальный и 3 положительный местами. числа если надо: -3; -4; 9; 8; 1...
nekiti444
16.05.2023
Выписать 4 операционные системы и найти информацию плюсов и минусов этих систем и популярность использования (1 операционная система из 4 должна быть отечественная))...
Марусяняша
22.07.2021
Максимум ! к каждой из указанных схем составить функцию и определить значение функции по таблице истинности...
Vikysiax99
11.12.2020
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6 и количество. паскаль...
Kylaguzzz
14.11.2022
3. прочитайте алгоритм. назовите исполняемые и неисполняемые команды. алг сумма квадратов (арг цел n, рез цел s) дано | n 0 надо | s = 1*1 + 2*2 +3+3 + + n*n цел n, цел s, цел i;...
Dinomid93
20.10.2021
Автоматическая фотокамера делает фотографии высокого разрешения с палитрой, содержащей 224 = 16 777 216 цветов. средний размер фотографии составляет 6 мбайт. для хранения в базе...
lolipop310
29.07.2022
Что данная программа выполняет? program prim1; var s: string; i, k: integer; begin writeln ( введите строку ); readln (s); k: =0; for i: =1 to length (s) do if s[i]= ь then s[i]:...
BMW535
10.03.2020
Составьте программу, которая из слова робототехника получает три слова робот, ник, бот и выводит эти слова на экран в столбик....
banana92
29.01.2021
Через канал связи со скоростью 60 кбайт/с файл в течении 13 минут. какой информационный объем файла в мбайтах?...
MOGZ ответил
Шарик массой 200 г, подвешенный на пружине, колеблется с частотой 5 рад/с. определить...
Выберите слова, у которых нет формы единственного числа: а) очи, б) бигуди, в)...
Определение: хромосома,кариотип,кариоплазма....
Что такое исток , устье, дельта , эстуарии ,...
Определите число молекул содержащихся в оксиде кальция cao количеством вещества...
Составить предложение со словом часовщик...
От одной пристани к другой, между которыми 4 км 800 м пути, одновременно вышли...
Подобные члены многочлена: а)10х-8ху-3ху в)3х^4-5х+7х^2-8x^4+5x б)2ab-7ab+7a^2...
Вбаке 200л воды,а в бочке на 120л меньше.сколько воды в пяти таких бочонках...
Плинтер работает с прозводительностью 70 стр./ч. сколько страниц он напечатает...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
var g: Integer;
n,m: Real;
Begin
Write('Введите два числа: ');
Readln(m,n);
If m>n then begin
g:=n;
n:=(m+n)/2;
m:=2*m*n;
end
else begin
g:=m;
m:=(m+n)/2;
n:=2*m*n;
end;
Writeln('m = ', m, ' n = ', n);
End.