// 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
avtalux527
16.10.2022
Подробно допишешь сам, чтобы было красиво читаемо 1. Когда цикл находится внутри цикла 2. Самый первый исполняемый цикл(внутри которого есть ещё циклы или цикл). 3. То что внутри внешнего цикла. 4. Вот смотри, внешний цикл(например - for) начинает работу, представим что у внешнего цикла переменная-счётчик i, а у внутреннего j. Первая итерация идёт... i = 1 и начинается работа внутруннего цикла и счетчик j проходится от 1 до 10(Почему 10? Ну просто я захотел, это количество итерации которое должно выполнить цикл) И ЭТО ВСЕГО ОДНА ИТЕРАЦИЯ ВНЕШНЕГО ЦИКЛА, В ТОТ МОМЕНТ КОГДА ВНУТРЕННИЙ ВЫПОЛНИЛСЯ ПОЛНОСТЬЮ(в зависимости от количества итерации внешнего цикла будет зависеть сколько раз будет выполнятся внутренний цикл)
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Как правильно обозначить интервал перед абзацем в строках? выберите один ответ: ст стр ст. стр.
// Внимание! Если программа не работает, обновите версию!
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