Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
KetrinDark
27.09.2021 12:54 •
Информатика
информационный проект 10 класс по информатике основан на программировании на Wing101 очень простой проект
👇
Увидеть ответ
Открыть все ответы
Ответ:
mmmmmvbbbbb
27.09.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
27.09.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 оценок)
Это интересно:
К
Кулинария-и-гостеприимство
24.06.2022
Как приготовить курицу с рисом: пошаговый рецепт для начинающих...
К
Кулинария-и-гостеприимство
25.08.2021
Как сделать чай из роз: полезные рецепты и особенности приготовления...
И
Искусство-и-развлечения
07.05.2022
Как играть на тромбоне: советы и рекомендации для начинающих...
12.09.2020
Как остановить человека, который задирает вас...
К
Компьютеры-и-электроника
26.04.2020
Как изменить одежду сима в The Sims 2: простые шаги...
К
Компьютеры-и-электроника
01.08.2020
Как закрывать приложения на iPhone, iPad и iPod Touch: инструкция для начинающих...
С
Семейная-жизнь
02.02.2020
Как показать почтение умершему знакомому...
К
Кулинария-и-гостеприимство
24.10.2021
Как законсервировать томатный соус...
03.04.2021
Как вернуть бывшего парня (для девушек-подростков)...
М
Мир-работы
29.12.2021
Как успешно пройти тестирование при приеме на работу...
Новые ответы от MOGZ: Информатика
физикаматика
22.03.2022
1.Розширення програми Microsoft Word?...
NezNeika
11.10.2021
РЕШЕНИЕ ЗАДАЧ (PYTHON) Дан класс, в котором учится n человек. Урок физкультуры. Для игры в футбол нужно выбрать 2 команды по 11 человек. Сколько вариантов выбрать эти...
DIPPER1112
24.04.2021
В каких случаях в качестве первичного ключа используют номер записи? Можно ли использовать такой подход, если в таблице есть другое уникальное поле?...
yxhcycgc
30.04.2020
БЫСТРЕЕЕЕЕЕ ЧУТЬ ЧУТЬ ВРЕМЕНИ ОСТАЛОСЬ 30 б ИНФОРМАТИКА...
GNOM888
04.10.2022
Продолжете алгоритм создания таблицы в текстовом докумете Дана таблица укажите формат ячеек....
звезда0ютуба
30.04.2023
напишите конспект на тему работа с ардуино в письменном формате...
koalakoalakoala
02.01.2021
Двоичное число 111111 в десятичной системе счисления записывается как: 63 38 37 46...
alexandra189
19.02.2022
Музыкальный фрагмент был оцифрован и записан в виде файла без использования сжатия данных. Получившийся файл был передан в город А по каналу связи за 60 секунд . Затем...
СэмТV
04.10.2021
Переведите число 10111001 из двоичной системы счисления в десятичную систему счисления. С решением...
Anastasia4790
10.08.2021
М на вопр 1. Что такое векторная графика? 2. Что представляет собой редактор Inkscape? 3. Какие инструменты есть в редакторе Inkscape?...
MOGZ ответил
Люди ,подскажите , как правильно написать записку учителю от ученика...
Вкаких случаях механическая работа ровна нулю? при ведение примеры,иллюстрирующие...
Подскажите 2-3розыгрыша-четверостишия на день дураков на языке.можно...
ответить на вопрос: какие мысли и чувства вызывает рассказ л.андреева...
Твір роздум для чого люді садять дерева...
Очем можно разговаривать с пчелой? придумай диалог...
Вправильной треугольной пирамиде sabcd с основанием abc известны...
Составь и запиши словосочетания со следующими предлогами и омонимичными...
:где наблюдатель увидит полярную звезду, если будет находиться на...
)в основании пирамиды лежит треугольник со сторонами 10, 8 и 6....
Полный доступ к 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.