Айым решила запрограммировать рисование
национального орнамента. для этого она сначала
училась составлять программы для простых узоров. на
рисунке – ее первая программа. котенок пришел и
стал задавать много вопросов. котенку
разобраться в программном коде, напиши ответы на
его вопросы.
5. что нужно сделать, чтобы отправить эту
программу на выполнение?


6. для чего айым использовала
блок «если»



7. а) при каком условии будет рисоваться узор?
б) какая фигура рисуется во вложенном цикле?
в) сколько раз будет рисоваться эта фигура?
г) нарисуй узор, который запрограммировала айым.

алг
нач
  цел a, sum, pro
  вывод 'Введите трёхзначное положительное число: '
  ввод a
  если a<100 или a>999
    то вывод 'Это не трёхзначное число. Перезапустите программу!'
    иначе
      sum := mod(a, 10) + mod(div(a,10),10) + div(a,100)
      pro := mod(a, 10) * mod(div(a,10),10) * div(a,100)
      если sum > 9 и sum < 100
        то вывод 'Сумма цифр числа ',a,' - двухзначное число (',sum,')', нс
        иначе вывод 'Сумма цифр числа ',a,' - не двухзначное число (',sum,')', нс
      все
      если pro > 99 и pro < 1000
        то вывод 'Произведение цифр числа ',a,' - трёхзначное число (',pro,')', нс
        иначе вывод 'Произведение цифр числа ',a,' - не трёхзначное число (',pro,')', нс
      все
      если mod(sum, 3) = 0
        то вывод 'Эта же сумма (',sum,') кратна трём', нс
        иначе вывод 'Эта сумма (',sum,') не кратна трём', нс
      все
  все
кон

Type
  Frac = record
    P: integer;
    Q: 1..32767
  end;

function gcd(a: integer; b: integer): integer;
{Нахождение НОД}
var
  i: integer;
begin
  while b <> 0 do
  begin
    a := a mod b;
    i := b; b := a; a := i
  end;
  result := a
end;

function RedFrac(a: Frac): Frac;
{Сокращение дроби}
var
  igcd: integer;
  r: Frac;
begin
  igcd := gcd(a.P, a.Q);
  r.P := a.P div igcd;
  r.Q := a.Q div igcd;
  RedFrac := r
end;

function Add(a, b: Frac): Frac;
{Сложение дробей}
var
  r: Frac;
begin
  r.P := a.P * b.Q + b.P * a.Q;
  r.Q := a.Q * b.Q;
  Add := RedFrac(r)
end;

function Mult(a, b: Frac): Frac;
{Умножение дробей}
var
  r: Frac;
begin
  r.P := a.P * b.P;
  r.Q := a.Q * b.Q;
  Mult := RedFrac(r)
end;

var
  m, n, k: Frac;

begin
  m.P := 4; m.Q := 15; {4/15}
  n.P := 9; n.Q := 25; {9/25}
  k := Add(m, n);
  Writeln(k.P, '/', k.Q);
  k := Mult(m, n);
  Writeln(k.P, '/', k.Q);
end.

Результат выполнения программы:
47/75
12/125