Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
sofyashevtsova
25.07.2020 14:02 •
Информатика
Найдите верную запись условия: число а положительное и четное *
if (a>0)or (a%2==0)
if (a>0)and (a%2=0)
if (a>0)and (a%2==0)
👇
Увидеть ответ
Открыть все ответы
Ответ:
асланбек13
25.07.2020
// 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,7
(74 оценок)
Ответ:
Tomikk1
25.07.2020
Var A,B:real;
Begin
//1
Write('Длина = ');ReadLn(A);
Write('Ширина = ');ReadLn(B);
WriteLn('S = ',A*B);
WriteLn('P = ',2*(A+B));
//2
WriteLn;
Write('Кол-во денег: ');ReadLn(A);
Write('Стоимость покупки: ');ReadLn(B);
WriteLn('Сдача: ',A-B);
//3
WriteLn;
Write('Расстояние: ');ReadLn(A);
Write('Стоимость проезда 1 км: ');ReadLn(B);
WriteLn('Стоимость проезда ',A,' км: ',A*B);
//4
WriteLn;
Write('Цена товара: ');ReadLn(A);
Write('Вес покупки: ');ReadLn(B);
WriteLn('Цена покупки: ',A*B);
//5
WriteLn;
Write('Объём в баррелях: ');ReadLn(A);
WriteLn('Объём в литрах: ',A*159);
End.
4,7
(32 оценок)
Это интересно:
Ф
Финансы-и-бизнес
25.01.2020
Как открыть счет в швейцарском банке: необходимые шаги и требования...
К
Компьютеры-и-электроника
07.10.2020
Как переустановить Google Chrome: простой шаг за шагом гайд...
К
Кулинария-и-гостеприимство
18.06.2020
Замена бальзамическому уксусу - натуральные вкусовые альтернативы...
К
Компьютеры-и-электроника
26.07.2022
Как зарегистрироваться в Snapchat без проблем и быстро?...
Ф
Финансы-и-бизнес
24.01.2022
Как оформить возврат НДС на приобретенный товар в Таиланде...
Т
Транспорт
29.01.2023
Как найти верхнюю мертвую точку вашего двигателя (ВМТ)...
О
Образование-и-коммуникации
19.01.2021
5 простых способов запомнить математические и физические формулы...
С
Стиль-и-уход-за-собой
17.06.2020
Как сделать ретро шляпку с вуалью...
К
Компьютеры-и-электроника
11.11.2020
Как проверить веб-камеру на ПК или Mac: простые советы от профессионалов...
К
Компьютеры-и-электроника
12.03.2023
Хочешь свой сайт на Weebly Pro? Все, что нужно знать о переходе...
Новые ответы от MOGZ: Информатика
axieva35
10.10.2021
составить кроссворд по информатике Ключевое слово текстовый документ...
хорёк05
17.05.2021
Информатика сожете об яснить я вас умоляю...
гуманитарийеп
04.12.2021
⦁ В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в данной кодировке: Во время карантина оставайтесь дома! ⦁ Документ,...
SASA7609508
30.10.2020
АХТУНГ! Кто шарит в прогах - отзовитесь! Пepeменная phones_list хрaнит стpПepeменная phones_list хрaнит стpyктуру дaнных со спискoм кoнтaктов, сoдержащим нoмера тeлeфонов. Из cпискa...
Екатерина31Теребун
30.12.2022
3. Чтобы изменить размер изображения, можно а) использовать инструмент Контур б) выделить фрагмент и растянуть рамку выделения в) вставить фрагмент из буфера обмена г) воспользоваться...
dja4enkodanil16
04.09.2020
Запишите название инструментов, представленных на картинке:...
IamPrincess5
17.01.2022
За минимальную единицу измерения количества информации принят: 1. 1 бод 2. 1 бит 3. 256 байт 4. 1 байт 4. В какой системе счисления работает компьютер? 1. в двоичной 2. в шестнадцатеричной...
Ksu1ma
15.01.2020
Перемножьте числа, а затем проверьте результаты, выполнив соответствующие десятичные умножения: а) 1111012 и 11,012; б) 168 и 78;...
Angelochek167
05.12.2022
10. Given two arrays arr1 and arr2, the elements of arr2 are distinct, and all elements in arr2 are also in arr1. Sort the elements of arr1 such that the relative ordering of items...
25Виктория03
14.12.2020
Сколько цифр 1 в двоичной записи детичного числа 253...
MOGZ ответил
3. прочитайте цитаты и афоризмы эразма и выполните : большинство людей глупы,...
Сколько звуков в слове ёлка, камень ,сумма....
Халявные рассчитать количество co2 m = 3, 50 г...
Надо що таке лишайники? іть будь ласка дуже потрібно...
Разобрать глагол марфолагически слово приглашает 20...
Прочитай слова. запиши парами слова с противоположным значением. образец : большой-маленький...
1. составьте синквейн к термину деепричастие...
Разность двух чисел равна 24. одно число в 7 раз больше другого. найдите числа....
Примеры н-неполное нн-краткое н и нн в разных частях речи хотя бы шт 10...
1) за какие поступки лена себя ? о какие качествах лены говорят эти поступки...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
// Внимание! Если программа не работает, обновите версию!
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