Question

ОЧЕНЬ ПРОШУ РЕШИТЬ ХОТЯ БЫ ОДНУ ИЗ ЭТИХ ЗАДАЧ! 1. Составить программу, по которой на экране будет напечатано: «Числа равны (numbers are equal)», если все три заданных числа равны, в противном случае будет напечатано максимальное число.2. Рассчитать надбавку к зарплате за стаж, если стаж от 2 до 5 лет, надбавка составляет S1, если стаж от 5 до 10 лет – S2 руб. Ввести с клавиатуры зарплату и стаж, вывести надбавку и сумму к выплате. (в ответе код c++ или pascal)

Answer 1

Ответ:

1.Var x, y, z, i:integer;

Begin

Readln(x);

Readln(y);

Readln(z);

If x=y then begin

If y=z then Writeln('numbers are equal' )

else begin if y>z then Writeln(y) else Writeln(z)

End; end

else begin if x>y then i:=x else i:=y;

If i>z then Writeln(i) else Writeln(z) end

2.const s1 = 10000;

const s2 = 15000;

var sum,zp,st: integer;

begin

write('Введите стаж: ');

readln(st);

write('Введите зарплату: ');

readln(zp);

if (st>=2) and (st<=5) then sum:=zp+s1

else if (st>5) then sum:=zp+s2;

writeln('Зарплата: ',zp);

writeln('Стаж: ',st);

if (st>=2) and (st<=5) then writeln('Надбавка: ',s1)

else if (st>5) then writeln('Надбавка: ',s2);

writeln('Сумма к выплате: ',sum);

end.

Объяснение:

Решил даже 2 :)

Answer 2

Конечно, вот решения задач на языках программирования C++ и Pascal:

Задача 1 - Сравнение трех чисел и вывод максимального:

C++:

cppCopy code
#include <iostream>
using namespace std;

int main() {
    int a, b, c;
    cout << "Введите три числа: ";
    cin >> a >> b >> c;

    if (a == b && b == c) {
        cout << "Числа равны (numbers are equal)" << endl;
    } else {
        int maxNumber = (a > b) ? ((a > c) ? a : c) : ((b > c) ? b : c);
        cout << "Максимальное число: " << maxNumber << endl;
    }

    return 0;
}

Pascal:

pascalCopy code
program MaxNumberOrEqual;

var
  a, b, c, maxNumber: Integer;

begin
  Write('Введите три числа: ');
  ReadLn(a, b, c);

  if (a = b) and (b = c) then
    WriteLn('Числа равны (numbers are equal)')
  else
  begin
    if a > b then
      maxNumber := a
    else
      maxNumber := b;

    if c > maxNumber then
      maxNumber := c;

    WriteLn('Максимальное число: ', maxNumber);
  end;
end.

Задача 2 - Расчет надбавки к зарплате за стаж:

C++:

cppCopy code
#include <iostream>
using namespace std;

int main() {
    double salary, bonus = 0.0;
    int experience;

    cout << "Введите зарплату: ";
    cin >> salary;

    cout << "Введите стаж (в годах): ";
    cin >> experience;

    if (experience >= 2 && experience < 5) {
        bonus = /* Значение S1 */;
    } else if (experience >= 5 && experience <= 10) {
        bonus = /* Значение S2 */;
    }

    double totalSalary = salary + bonus;

    cout << "Надбавка: " << bonus << " руб." << endl;
    cout << "Итоговая сумма к выплате: " << totalSalary << " руб." << endl;

    return 0;
}

Pascal:

pascalCopy code
program SalaryBonus;

var
  salary, bonus, totalSalary: Real;
  experience: Integer;

begin
  Write('Введите зарплату: ');
  ReadLn(salary);

  Write('Введите стаж (в годах): ');
  ReadLn(experience);

  if (experience >= 2) and (experience < 5) then
    bonus := /* Значение S1 */
  else if (experience >= 5) and (experience <= 10) then
    bonus := /* Значение S2 */
  else
    bonus := 0.0;

  totalSalary := salary + bonus;

  WriteLn('Надбавка: ', bonus:0:2, ' руб.');
  WriteLn('Итоговая сумма к выплате: ', totalSalary:0:2, ' руб.');
end.

Пожалуйста, обратите внимание, что в коде нужно заменить комментарии /* Значение S1 */ и /* Значение S2 */ на фактические значения надбавок в зависимости от задания.