Помогите с заданиями по Информатике:

Question

Помогите с заданиями по Информатике:

---

---

Answer 1

Program No2;
var
  m,n,i,NOK:integer;
begin
  Write('Введите два натуральных числа: '); Read(m,n);
  NOK:=m*n;
  while n <> 0 do
  begin
    m := m mod n;
    i := n; n := m; m := i
  end;
  NOK:=NOK div m;
  Writeln('НОК=',NOK)
end.

program No3;
var
  n:integer;
begin
  Write('Введите натуральное число'); Read(n);
  if n mod 9=0 then Writeln('Число делится на 9')
  else Writeln('Число на 9 не делится')
end.

program No4;
var
  i,n:integer;
begin
  Writeln('Числа, которые после удаления средней цифры уменьшаются в 9 раз');
  for i:=100 to 999 do begin
    n:=(i div 100)*10+(i mod 10);
    if i=9*n then Write(i,' ')
    end;
  Writeln
end.