Всі двоцифрові числа кратні Var-N 1. Вивести сисла на проміжку [Var (варіант); Var*N (вводиться)]. Перевірити - id1774065020220425 от Mary17ice 25.04.2022 14:20

Question

Информатика: Всі двоцифрові числа кратні Var-N 1. Вивести сисла на проміжку [Var (варіант); Var*N (вводиться)]. Перевірити Var 2. Вивести числа на проміжку [-Var (варіант); -Var*N (вводиться)]. Перевірити -Var -N, інакше числа Var та N обміняти. 3. Вивести символи від Cl до С2 через КІ, К2, КЗ (всі дані з клавіатури).

Mary17ice · Accepted Answer

// 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

MOGZ ответил