Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vaniafatyanov
14.05.2021 01:54 •
Информатика
1)ввести 2 целых числа ,вычислить их сумму , вывести сумму на экран. сложение оформить процедурой с параметром по ссылке . 2)напишите функцию , которая вычисляет максимальное из 3 чисел . числа вводятся с клавиатуры. язык паскаль , !
Показать ответ
Ответ:
langueva1405
08.10.2020 05:50
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
1)
procedure Add(a,b:integer; var r:integer);
begin
r:=a+b
end;
begin
var (x,y):=ReadInteger2('Введите два целых числа:');
var z:integer;
Add(x,y,z);
Writeln('Их сумма равна ',z)
end.
Пример
Введите два целых числа: 18 142
Их сумма равна 160
2)
function Min3(a,b,c:integer):=Min(a,Min(b,c));
begin
var (i,j,k):=ReadInteger3('Введите три целых числа:');
Writeln('Минимальное равно ',Min3(i,j,k))
end.
Пример
Введите три целых числа: 35 -4 41
Минимальное равно -4
0,0
(0 оценок)
Ответ:
bulavskaaana
08.10.2020 05:50
#include <iostream>#include <algorithm>using std::cin;using std::cout;using std::sort;
int arr[3];
void min(){ sort(arr, arr+3); cout << arr[0];}
int main(){ for (int i = 0; i < 3; ++i) { cin >> arr[i]; } min(); return 0;}
0,0
(0 оценок)
Популярные вопросы: Информатика
Балерина2017
06.05.2023 19:27
Задания: 1. Напишите вид информации по представления 2 о 298 2 5 7 9 8 7 4 7. б 1. 2. 3. 4....
mrzus
11.04.2022 17:49
Какие цифры используются в троичной системе счисления?...
eva10072008mailru
11.04.2022 17:49
Вождь племени пульт поручил своему министру разработать двоичный код и перевести в него всю важную информацию. какой разрядности потребуется код, если алфавит содержит...
mylifeartem
02.12.2021 19:03
Из папки docum было удалено 13 файлов, и сообщение об этом содержит 91 бит информации. сколько файлов осталось в папке?...
Mama228zx
19.11.2021 23:55
Среди чисел найти среднее. если среди чисел есть равные, вывести сообщение ошибка ....
linda281
19.11.2021 23:55
Пользоавтель вводит число целое число. надо вывести на экран сколько в этом числе цифр и положительное оно или отрицательное. например, это однозначное положительное...
andriyianna
07.03.2023 16:29
Cмысл названия романа капитанская дочка сочинение...
RetoGero
17.02.2022 07:16
Длина прямоугольника в 3 раза больше ширины.найди площадь и периметр...
Кологривко
20.03.2020 14:47
Дыбыстың ауадағы таралу ғы 3/10 км/с дыбыс 3 км қашықтыққа неше секундта барады...
матвей468
05.10.2021 16:31
Элементами множества a являются натуральные числа. известно, что выражение ¬(x ∈ {2,4,8,12,16}) ∧ ¬(x ∈ {3,6,7,15}) ∨ ¬(x ∈ {3,6,7,15}) ∨ (x ∈ a) истинно (т. е....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
1)
procedure Add(a,b:integer; var r:integer);
begin
r:=a+b
end;
begin
var (x,y):=ReadInteger2('Введите два целых числа:');
var z:integer;
Add(x,y,z);
Writeln('Их сумма равна ',z)
end.
Пример
Введите два целых числа: 18 142
Их сумма равна 160
2)
function Min3(a,b,c:integer):=Min(a,Min(b,c));
begin
var (i,j,k):=ReadInteger3('Введите три целых числа:');
Writeln('Минимальное равно ',Min3(i,j,k))
end.
Пример
Введите три целых числа: 35 -4 41
Минимальное равно -4
int arr[3];
void min(){ sort(arr, arr+3); cout << arr[0];}
int main(){ for (int i = 0; i < 3; ++i) { cin >> arr[i]; } min(); return 0;}