Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
foltes
29.06.2021 14:18 •
Информатика
Пример алгоритма: •список продуктов
•кулинарный рецепт
•записка «Купить продукты»
•перечень ингредиентов
👇
Увидеть ответ
Открыть все ответы
Ответ:
mmmmmvbbbbb
29.06.2021
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
29.06.2021
// 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 оценок)
Это интересно:
С
Семейная-жизнь
20.05.2022
Как правильно вести себя с созависимым членом семьи: полезные советы и рекомендации...
П
Питомцы-и-животные
01.01.2023
Как безболезненно и эффективно удалить мягкие бородавки у вашей собаки в домашних условиях...
З
Здоровье
29.11.2020
Как похудеть удобным способом?...
З
Здоровье
07.07.2020
Как купить тест на беременность: руководство для будущих мам...
К
Компьютеры-и-электроника
11.10.2022
Как легко и удобно пользоваться Apple TV...
О
Образование-и-коммуникации
27.05.2021
Как сделать так, чтобы лед долго не таял...
К
Компьютеры-и-электроника
10.04.2023
Как сделать пользователя администратором в групповом чате Skype на ПК или Mac...
И
Искусство-и-развлечения
21.12.2020
Сделайте свой костюм привидения легко и быстро!...
Х
Хобби-и-рукоделие
15.11.2020
Как сделать бретельки для платья без бретелек...
С
Стиль-и-уход-за-собой
23.01.2023
Как почистить ботинки до зеркального блеска как это делают в армии...
Новые ответы от MOGZ: Информатика
petr113
09.01.2022
•найдите объём звукового стерео-файла, который записывался в течение 8 минут с частотой дискретизации 8 кгц и глубиной кодирования звука 16 бит...
uchenik0012
07.03.2023
•для кодирования красного цвета служит код 10101. сколько цветов в палитре?...
Dashad27
17.09.2020
1) почему при работе за компьютером необходимо соблюдать правила техники безопасности? 2) какие требование правил техники безопасности являются, по вашему мнению, основными ( перечислите...
mokeevayulichk48
17.09.2020
Вкорзине лежат тридцать два разноцветных шара. сообщение о том, что из корзины вытащили красный шар, несет...
olgaalehina
28.11.2021
вроде легко но не могу сделать...
КРЕНДЕЛЬ228
12.02.2020
Дано значение целых величин х и у. Найти z=max2(x,y)+min(x,y)- min2(x,y) Как это делать в Python?...
coolbembel
14.02.2023
Описать этапы жизненного цикла на примере любой программы (эл учебник, тест программа, сайт и т.д)...
Edinorog1Panda
14.02.2023
Транслятордың негізгі міндеттерін көрсет көмектесіңдерші...
braskyn
14.09.2021
Мәзір жолағындағы батырмалардың атауларын қазақ және орыс тілдеріне аударып ,дәпт...
cifirka5
09.10.2020
Будущее компании apple и microsoft плюсы и минусы...
MOGZ ответил
Написати текст з нім.мови яка погода у літку...
Согласно классификации личности в политике, в пособии, определите свой тип политической...
Найти знаки чисел : cos 148° ; tg pi/5 ....
Каким настроением проникнут роман гончарова «обломов»...
Укажи сложносочинённое предложение, между частями которого ставится тире (знаки...
Кого назвали неприкасаемыми в индии ? почему этих людей так называли? какие надежды...
3. прочитайте стихотворение м.в. ломоносова «случились вместе два астронома в...
Мф образы духовной музыки западной европы...
Найти отличие в правах,и ответьте на вопрос про азербайджанина...
Краткий пересказ андронников земляк лермонтова...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
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.