Помогите сделать РГР, Помогите сделать РГР Опции

[sergey121212]

помогите пожалуйста девушке сделать ргр очень нужно. Спасибо.


Задача 1
Операторы присваивания, ввод и вывод информации

Определите стоимость набора, в который входят следующие конфеты (стоимость упаковки составляет U грн.):
Название Вес Стоимость
Петровские 200 г Кгрн. (1 кг)
Воронежские 300 г Ргрн. (1кг)
Чародейка 250 г RrpH. (I кг)
Факел 150 г Вгрн. (1 кг)
Ласточка 200 г L грн. (1 кг)
Упаковка - U грн. (1 кг)

Задача 2 Условный оператор

Пусть даны координаты трех точек на плоскости. Если они мо¬гут быть вершинами равностороннего треугольника, вычислите его площадь и длину высоты. Выведите длины сторон, площадь и дли¬ну высоты в порядке возрастания значений.

Задача 3 Операторы цикла

Пусть дано натуральное число п. Вычислите: 1*2 + 2*3*4 +... + п *... * 2п.

Задача 4
Регулярные таны данных. Одномерные массивы

Пусть даны натуральные числа k. n. вещественные числа а1,a2,…akn Получите последовательность min(а1, а2,… аk), min(ak+1, ak+2,… а2k),
min(ak(n-1)+1,… аkn).

Задача 5
Двумерные массивы. Процедуры и функции

Пусть задана вещественная матрица. Рассматривая ее как вектор строк, упорядоченные по количеству нечетных элементов в каждой стро¬ке.

Задача 6
Строки, записи, множества. Обзор всех пройденных тем

Пусть задана символьная матрица размерности n х m. Напечатайте все символы, находящиеся в столбцах, элементы которых симметричны.

[sergey121212]

Помоги с 6 что-то не получается

const
  n= 4;
  m= 5;

var
  a: array[1..n,1..m] of char;
  i,j: integer;

begin
  FOR I:=1 TO M DO BEGIN

    FOR J:=1 TO N DO
    readln(a[i,j]);
  END;

  for j:=1 to m do begin
    i:=1;
    while (i<=n div 2) and (a[i,j]=a[n-i+1,j]) do inc(i);
    if ( i> (n div 2)) do begin
      for i:=1 to n do write(a[i]);
      writeln
    end
  end;
  readln
end.

Добавлено через 1 мин.
А за сделанную вторую поможешь сделать 3 и 5

[Lapp]

Помоги с 6 что-то не получается

Поскольку я не проверял, была парочка опечаток. Еще, я подправил твое заполнение, теперь надо вводить так:

12345
qwert
qwert
10305

И результат будет такой:

1qq1
3ee3
5tt5

Вот исправленный код:

const
  n= 4;
  m= 5;

var
  a: array[1..n,1..m] of char;
  i,j: integer;

begin
  FOR I:=1 TO n DO begin
    FOR J:=1 TO m DO read(a[i,j]);
    readln
  end;
  for j:=1 to m do begin
    i:=1;
    while (i<=n div 2) and (a[i,j]=a[n-i+1,j]) do inc(i);
    if i>n div 2 then begin
      for i:=1 to n do write(a[i,j]);
      writeln
    end
  end;
  readln
end.

А за сделанную вторую поможешь сделать 3 и 5

Да ).