Задание 2. Составление программ на языке Pascal.
Все задачи должны быть выполнены поэтапно:
а Найти периметр треугольника по заданным сторонам: p-a+b+c
б. Вывести площадь прямоугольника по заданным сторонам: S = ab
sa+b,
B. Hанин тощадь трапецHн по основаниям и высоте: 3 -
г. Найти д ну окружности по заданному радиусу: 1 - 2
д. Наши максимальный (минимальный из трех данных нест
С первого этапа по четвертый этап выполняются в тетрадн. Пятый этап выполняется в
Tiporpannte Pascal ABC​

program same;

var

 number: string;

begin

 read(number);

 if ((number[1] = number[2]) or (number[2] = number[3]) or (number[1] = number[3])) then

   writeln('Да')

 else

   writeln('Нет');

end.

Объяснение:

program same;  // Название программы

var

 number: string;  // Создание строковой переменной number

begin  // Начало программы

 read(number);  // Считываем значение переменной number с клавиатуры

 if ((number[1] = number[2]) or (number[2] = number[3]) or (number[1] = number[3])) then  // Если ((1 цифра = 2 цифре) ИЛИ (2 цифра = 3 цифре) ИЛИ (1 цифра = 3 цифре))

   writeln('Да')  // Выводим Да

 else  // Иначе

   writeln('Нет');  // Выводим Нет

end. // Конец программы

Напишу на С++, но алгоритм один и тот же

bool flag = true; // bool - переменная которая принимает только true или false;

int number;

int sum;

int index;

double sr;

while(flag){  // Цикл который выполняется до тех пор пока flug = true;

cin >> number; // Вводим число

if(number == 0) flag = false; // Как только флаг будет равен с 0, мы заканчиваем выполнять цикл

sum=sum+number; // Ищем суму и каждый раз её увеличиваем на то число, которое ввели

index=index+1; // Увеличиваем количество введенных элементов

}

sr = sum/index; // Суму делим на количество чисел для того чтобы найти среднее арифметическое

cout << "Сума: " << sum; // Выводим суму

cout << endl // Пробел в С++(не обязательно)

cout << "Среднее арифметическое: " << sr; // Выводим среднее арифметическое