Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Алёксейudfih
27.01.2022 08:54 •
Информатика
Вбольшое ведро вмещается 6 литров а вмаленькое 5 литров .с колько воды оказалось после выполнения алгоритма
👇
Увидеть ответ
Ответ:
VitaKoroleva851
27.01.2022
Большом будет 2 литра в маленьком не знаю
4,7
(5 оценок)
Открыть все ответы
Ответ:
mmmmmvbbbbb
27.01.2022
1) program p1;
var a,b:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
if(a>=b) then writeln('максимальное число: ', a) else writeln('максимальное число: ', b);
end.
2)
program p1;
procedure MaxNumber(a,b: integer; var max: integer);
begin
if a>=b then max:=a else max:=b;
end;
var a,b,c,d,m:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
writeln('Введите 3-е число: ');read(c);
writeln('Введите 4-е число: ');read(d);
MaxNumber(a,b,m);
MaxNumber(m,c,m);
MaxNumber(m,d,m);
writeln('максимальное число: ',m);
end.
4,6
(11 оценок)
Ответ:
lilyamkrtchyan1
27.01.2022
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
unit ASM;
interface
type SF=(integer,integer);
function AddSF(a,b:SF):SF;
function SubSF(a,b:SF):SF;
function MultSF(a,b:SF):SF;
function DivSF(a,b:SF):SF;
implementation
function Gcd(p:SF):integer;
begin
(var a,var b):=p;
a:=abs(a); b:=abs(b);
while b>0 do (a,b):=(b,a mod b);
Result:=a
end;
function ReductSF(p:SF):SF;
begin
var t:=Gcd(p);
if t>1 then Result:=(p[0] div t,p[1] div t)
else Result:=p
end;
function AddSF(a,b:SF):=ReductSF((a[0]*b[1]+a[1]*b[0],a[1]*b[1]));
function SubSF(a,b:SF):=ReductSF((a[0]*b[1]-a[1]*b[0],a[1]*b[1]));
function MultSF(a,b:SF):=ReductSF((a[0]*b[0],a[1]*b[1]));
function DivSF(a,b:SF):=ReductSF((a[0]*b[1],a[1]*b[0]));
end.
Пример работы с модулем
uses ASM;
begin
var a:=(5,24);
var b:=(7,8);
var c:=AddSF(a,b);
Writeln(a[0],'/',a[1],'+',b[0],'/',b[1],'=',c[0],'/',c[1])
end.
Результат
5/24+7/8=13/12
4,8
(11 оценок)
Это интересно:
К
Компьютеры-и-электроника
09.10.2022
Как сделать стекло в игре Minecraft: подробный гайд...
З
Здоровье
14.01.2023
Очистка организма от кокаина: научно проверенные методы...
27.05.2020
Как добиться ясности ума: советы от экспертов...
Д
Дом-и-сад
26.01.2022
Как выложить пол керамической или керамогранитной плиткой: советы и рекомендации...
К
Кулинария-и-гостеприимство
31.05.2023
Как приготовить банановый смузи без блендера: простые и эффективные методы...
С
Стиль-и-уход-за-собой
26.11.2020
Как сделать боб каре как у Пэрис Хилтон...
В
Взаимоотношения
29.12.2020
Как игнорировать своего парня: 5 советов для девушек, которые хотят сохранить свою независимость...
Х
Хобби-и-рукоделие
01.02.2020
Как пользоваться моноподом: полезные советы и рекомендации...
О
Образование-и-коммуникации
08.05.2022
Как нарисовать Гарри Стайлса: Подробный гид для начинающих художников...
О
Образование-и-коммуникации
09.06.2023
Как стать онлайн-корректором: советы и требования...
Новые ответы от MOGZ: Информатика
tigertuborg
31.03.2020
Нобелевская премия 1. создайте бд, содержащую следующую информацию: нобелевскую премию в области получили: в 1960 г. мессбауэр л. (германия) в 1962 г. ландау в 1949...
Unicorn471
09.02.2022
Free pascal. нужно написать программу, где после каждой буквы ch вставляется строка str1....
lllgglll
09.02.2022
Для передачи секретного сообщения используются только десятичные цифры. при этом все цифры (не числа) кодируются одинаковым минимально возможным количеством битов. определите...
milka293
21.03.2020
задача! побудувати масив з проудктами в супермаркеті 10 елементів рандомно вам видаються знижка від 0 -15 відсотків можете вибирати що ви купляете ви йдете на касу і підраховуете...
пепа24
06.06.2022
Контрольная работа #2 Вам нужно написать программу-игру, которая имитирует битву героя и дракона. Информация о ходе битвы должна выводиться в консоль. Программа пишется...
nikitamany87
23.07.2021
1. что называется базой данных (бд)? 2. что такое система базами данных (субд)? 3. чем отличается microsoft excel от microsoft access? 4. какие объекты базы данных microsoft...
indyk1
18.02.2022
Алфавит племени мульти состоит из 64 букв,какое количество информации несёт одна буква этого алфавита...
Koskool
09.01.2021
Даны 3 разные строки символов. определить самую длинную строку и выдать ее длину на экран.паскаль....
veshiyoleg
28.06.2022
Паскаль. какое описание массива содержит ошибку? const n=10; m=12; type figura=(elephant, rook, horse, queen, king, pawn); charmas1=array[a..z] of integer; masfigura=array[figura]...
Виталий5546
24.09.2021
Можете решить через f(x) и с построением графика 151-152(аб)...
MOGZ ответил
{x=8-3y {2x-y=8 решение уравнения...
Синтаксический разбор предложения: Вчера на опушке леса мы увидели лесного...
Нужно определить ямб хорей или что-то другое с объяснением почему и как?...
Формы интеграции культуры Казахстана в мировое культурно пространство...
Чому на вашу думку спільну мову підліткам легше знайти з старшими людьми?...
Верны ли утверждения? 1. Деньги усложняют обмен. 2. Деньги облегчают...
8. Haпад на дітей стався (Убити пересмішника): a) на Новий рік: б) на...
РЕБЯТ Как Том Сойер и его друзья стремились сделать окружающий мир интересным?...
Можно 4 в 3 степени умножить на 64 в 4 степени, разделить на 16 в 7 степени,...
, если сможете с решением выражений!...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ