Составьте программу для построения изображения треугольника. 100 ​

1: var a: integer;   begin  writeln('введите число');   read(a);   if (a mod 343 = 0) then writeln('число ',a,' кратно числу 343.')    else writeln('число ',a,' не кратно числу 343.');     end.2 : var a,s,d,e: integer;   begin  writeln('введите трехзначное число: ');   read(a);     s: =a div 100;     d: =(a div 10) mod 10;     e: =a mod 10;     if (s=0)or(d=0)or(e=0) then writeln('число ',a,' содержит 0.')      else writeln('число ',a,' не содержит 0.');     end.

Запишем таблицу распределения мест по купе: купе места1          1-4,53,542          5-8,51,523          9-12,49,504      13-16,47,485      17-20,45,466      21-24,43,447      25-28,41,428       29-32,39,409      33-36,37,38 установим связь номера места с номером купе. предлагается следующий (конечно же, не единственный) вариант: здесь знаком ÷ обозначена операция целочисленного деления.теперь можно написать программу.  язык программирования в не указан, поэтому выбран язык свободно распространяемой для целей обучения системы программирования pascalabc.netvar  n: integer; begin  write('укажите номер места: '); read(n);   write('место располагается в купе №');   if n< =36 then write((n-1) div 4 + 1)  else write((54-n) div 2 + 1)end.тестовое решение: укажите номер места: 18место располагается в купе №5