PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!
№1
function НОД(a,b:integer):integer;
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
function НОК(a,b:integer):=a*b/НОД(a,b);
begin
var (a,b):=ReadInteger2('Введите два натуральных числа;');
Writeln('НОК = ',НОК(a,b))
end.
Пример
Введите два натуральных числа; 32 48
НОК = 96
№2
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var k:=ReadInteger('Введите делитель для замены:');
a.Transform(t->t mod k=0 ? t div k : t);
Writeln('*** Полученный массив ***'); a.Println(4);
end.
