Задание 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; // Выводим среднее арифметическое