logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
1i1kuz
1i1kuz
09.10.2022 21:26 •  Информатика

Область у який переглядають як виконавець виконує програму-це

👇
Увидеть ответ
Открыть все ответы
Ответ:
mmmmmvbbbbb
mmmmmvbbbbb
09.10.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
lilyamkrtchyan1
09.10.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 оценок)
Это интересно:
Д
Дом-и-сад
05.07.2021
Как без проблем удалить пятна краски с эмали?...
И
Как стать режиссером: искусство создания киношедевров...
В
Как отстаивать свои права в отношениях: 10 советов...
02.05.2023
Как избавиться от безответной любви...
И
10 советов по тому, как стать хорошим хип-хоп танцором...
С
Как правильно подобрать галстук?...
И
Как танцевать под хаус-музыку: узнайте простые шаги и техники...
С
Как эффективно удалить губную помаду?...
К
Как прекратить получение сообщений на Facebook...
Ф
Как открыть счет в швейцарском банке: необходимые шаги и требования...
Новые ответы от MOGZ: Информатика
1000Умник
1000Умник
23.04.2023
Укажите параметры и связи для модели треугольник​...
ndehost
ndehost
17.04.2022
Напишите, , программу на языке pascal ! вводится последовательность из n целых положительных элементов. подсчитать количество совершенных чисел в последовательности....
manya271200
manya271200
11.12.2021
Расшифруйте высказывание юлия цезаря.определите шаг шифрования. на сколько букв был осуществлен сдвиг в алфавите? фхбш зчктщ щэошксв! !...
katrinvolf
katrinvolf
09.02.2023
Алина,вера и аскар родились 5 марта,5 и 31 июля.алина и вера родились одного и того же числа,а у веры и аскара дни ррждения-в разные месяцы.кто в какой день родился?...
Lirik1328
Lirik1328
22.07.2022
Дано два числа. як визначити , що більше сума чи добуток?...
kongratbaeva2003
kongratbaeva2003
22.07.2022
1.зачем в процессе передачи данных осуществляется их сжатие 2.наиболее распространенные модемы в наше время контрольная завтра! 30...
mariyaarif
mariyaarif
22.07.2022
От разведчика была получена шифрованная радиограмма, переданная с использованием азбуки морзе. при передаче радиограммы было потеряно разбиение на буквы, но известно,...
likairin00Lika123
likairin00Lika123
20.10.2022
ОЧЕНЬ НУЖНО! Imagine you witnessed a crime. Plan an email to a friend describing the crime. Make notes using the questions below. • What was the crime? (shoplifting/vandalism/mugging?)...
systemka470
systemka470
20.10.2022
Чему равна производная функции y=x^3/4 , если x_0=2....
star1010
star1010
12.11.2020
В оружейном шкафу 30 автоматов. Из них 20 автоматов новой модели и 10 — старой. Часовой, заступая на службу, случайно выбрал автомат. Известно, что вероятность...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ