Вводится строка.требуется удалить из неё повторяющиеся подряд идущие символы(оставить один) и все пробелы. например, если было введено "abc cde def", то должно быть выведено "abcdedef". pascal abc без массива
Использование русских букв в названии переменной (с) это очень сильно, а ещё кавычки не `, а ' должны быть. Код можно еще улучшить избавившись от большого кол-ва проверок if т. к. это замедляет компиляцию
Var a, b, c:integer;
Begin
Readln(a,b,c);
If (a>=b+c) or (b>=a+c) or (c>= a+b) then Writeln('Нет' )
#include <iostream>
using namespace std;
int main ()
{
int salary;
int quantity = 0;
double amount = 0;
double average_salary = 0;
for (int i = 0; i < 5; i++)
{
cin >> salary;
if (salary >= 0 && salary <= 80)
{
amount += salary;
quantity++;
}
}
average_salary = amount / quantity;
cout << (average_salary);
}
Объяснение:
#include <iostream> // Библиотека ввода - вывода
using namespace std; // Пространство имен
int main ()
{
int salary; // Создание целочисленной переменной, отвечающей за вводимые с клавиатуры числа
int quantity = 0; // Создание целочисленной переменной, хранящей количество работников, попадающих под условие
double amount = 0; // Создание вещественной переменной для нахождения суммы зарплат, попадающих под условие
double average_salary = 0; // Создание вещественной переменной, хранящей среднюю зарплату
for (int i = 0; i < 5; i++) // Цикл выполняется 5 раз
{
cin >> salary; // Вводим число с клавиатуры
if (salary >= 0 && salary <= 80) // Если 0 <= значение переменной salary <= 80
{
amount += salary; // Сумма = сумма + вводимое число
quantity++; // К переменной, хранящей количество, прибавляем единицу
}
}
average_salary = amount / quantity; // Вычисление средней зарплаты: средняя зарплата = сумма ÷ количество
cout << average_salary; // Вывод ответа
}
Var a, b, c:integer;
Begin
Readln(a,b,c);
If a>=b+c then Writeln('Нет' )
Else if b>=a+c then Writeln('Нет')
Else if c>=a+b then Writeln('Нет')
Else Writeln('Да');
End.
Использование русских букв в названии переменной (с) это очень сильно, а ещё кавычки не `, а ' должны быть. Код можно еще улучшить избавившись от большого кол-ва проверок if т. к. это замедляет компиляцию
Var a, b, c:integer;
Begin
Readln(a,b,c);
If (a>=b+c) or (b>=a+c) or (c>= a+b) then Writeln('Нет' )
Else Writeln('Да');
End.