Написать программы ** паскале- эти 2 задания

0 голосов
22 просмотров

Написать программы на паскале- эти 2 задания


image

Информатика (21 баллов) | 22 просмотров
Дан 1 ответ
0 голосов
Правильный ответ
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.

image
(150k баллов)