var
a, b, c, m : integer;
begin
read (a, b, c);
m := a;
if b > m then m := b;
if c > m then m := c;
writeln (m);
end.
ps так корректнее, потому что в первом ответе не учтено равенство чисел.
Тема 2.1. Обработка текстовой информации
2.1.1. Введение в Mіcrosoft Offіce
2.1.2. Концепция электронного документа
2.1.3. Технология создания, редактирование и форматирование текстового документа в MS Word
2.1.4. Работа с таблицами
2.1.5. Работа с графикой
2.1.6. Работа с большими документами
2.1.7. Решение задач оформление экономической документации
Тема 2.2. Процессоры электронных таблиц
2.2.1. Электронная таблица Mіcrosoft Excel
2.2.2. Редактирование и форматирование рабочих листов
2.2.3. Технология создания электронной таблицы
2.2.4. Использование формул, функций и диаграмм в Excel
2.2.5. Работа с таблицей как с базой данных
2.2.6. Экономико - математические приложения Excel
2.2.7. Решение уравнений и задач оптимизации
Тема 2.3. Программные средства презентаций и основы офисного программирования
2.3.1. Современные организации презентаций средствами Power Poіnt
2.3.2. Создание новой презентации (мастер автосодержания, шаблон оформления, пустая презентация)
2.3.3. Оформление презентации
2.3.4. Работа со слайдами
2.3.5. Расширенные возможности PowerPoіnt (вставка таблиц, рисунков и видеоклипов, создание анимации слайдов и эффектов переходов)
2.3.6. Представление презентаций
2.3.7. Основы офисного программирования VBA
Тема 2.4. Системы управления базами данных и экспертные системы
2.4.1. Основные понятия систем управления базами данных
2.4.2. Система управления базами данных Mіcrosoft Access и ее основные возможности
2.4.3. Создание базы данных (таблиц и связей между ними)
2.4.4. Формирование запросов
2.4.5. Проектирование форм и работа с ними
2.4.6. Создание отчета как объекта базы данных
2.4.7. Создание главной кнопочной формы
2.4.8. Создание подчиненных кнопочных форм: отчеты и формы
2.4.9. Создание подчиненных кнопочных форм: запросы
2.4.10. Экспертные и обучающие системы
2.4.11. Учебная база данных с главной кнопочной формой "Training_students" - Скачать
Прикладная программа Excel
2.2. Процессоры электронных таблиц
2.2.3. Технология создания электронной таблицы
Python
from random import randint
n=8 # Столбцов
m=6 # Строк
# Заполняем матрицу случайными числами
a=[[randint(10,99) for j in range(n)] for i in range(m)]
# Печатаем матрицу в читабельном виде
for row in a: print(row)
# устанавливаем начальное значение i
i=0
# запускаем цикл по столбцам
while i < n-1:
# проверяем элементы предпоследней строки соседних столбцов на возрастание
if a[m-2][i] < a[m-2][i+1]:
# если они стоят по возрастанию поменяем местами элементы столбцов
for j in range (m):
a[j][i], a[j][i+1]=a[j][i+1], a[j][i]
# проверяем не нулевой ли мы поменяли элемент, т.к. элемента -1 не существует
if i>0: i-=1
# если элементы столбцов стоят в правильном порядке переходим к следующей паре столбцов
else: i+=1
# печатаем пустую строку, чтобы разделить две матрицы
print()
# печатаем получившуюся матрицу
for row in a: print(row)
var
a,b,c:integer;
writeln('a,b,c'); readln(a,b,c);
if (a>b) and (a>c) then writeln(a);
if (b>a) and (b>c) then writeln(b);
if (c>b) and (c>a) then writeln(c);
end;
можно через один if.