a - уровень продаж, а затем ЗП первого менеджера b - второго менеджера c - третьего Уровень продаж у всех разный. Язык программирования: Паскаль
var a, b, c: integer; begin readln (a); if a < 500 then a := 0.03 * a + 200; if (a > 500) and (a < 1000) then a := 0.05 * a + 200; if a > 1000 then a := 0.08 * a + 200; readln (b); if b < 500 then b := 0.03 * b + 200; if (b > 500) and (b < 1000) then b := 0.05 * b + 200; if b > 1000 then b := 0.08 * b + 200; readln (c); if c < 500 then c := 0.03 * c + 200; if (c > 500) and (c < 1000) then c := 0.05 * c + 200; if c > 1000 then c := 0.08 * c + 200; if (a > b) and (a > c) then a := a +200; else if b > c then b := b + 200; else c := c + 200; wreteln ('ЗП первого менеджера: ', a, '$'); wreteln ('ЗП второго менеджера: ', b, '$'); wreteln ('ЗП третьего менеджера: ', c, '$') end.
Пишу задание вторым номером, поэтому постараюсь на качество.
Нам нужно найти сначала сумму всего роста, потом поделить его на общее количество учеников. Потом сопоставить каждый элемент со средним числом и высчитать количество высоких учеников.
Будет это выглядить так:
uses crt; //Если используете паскаль ABC, это строка нужна для удобства
Var a: array [1..25] of real; i,otvet: integer; h,s:real;
//Объявляем переменные. Массив,среднее число и суммарный рост - любые числа. Сам ответ - целые числа
Begin
For i:=1 to 25 do begin Writeln('Введите рост ученика номер ',i); readln(a[i]);
//Здесь мы вводим рост с клавиатуры end; For i:=1 to 25 do s:=s+a[i];
//находим суммарный рост всех учеников h:=s/25; // делим на их количество. Теперь переменная h - это средний рост For i:=1 to 25 do if a[i]>h then otvet:=otvet+1; // А здесь проверяем каждый элемет массива. Если он выше значения среднего роста, мы прибавляем единицу к переменной "otvet". Там мы считаем количество высоких уч. Writeln('Средний рост в классе равен ',h); Writeln('Количество высоких учеников в классе равно ',otvet);
a - уровень продаж, а затем ЗП первого менеджера
b - второго менеджера
c - третьего
Уровень продаж у всех разный.
Язык программирования: Паскаль
var
a, b, c: integer;
begin
readln (a);
if a < 500 then
a := 0.03 * a + 200;
if (a > 500) and (a < 1000) then
a := 0.05 * a + 200;
if a > 1000 then
a := 0.08 * a + 200;
readln (b);
if b < 500 then
b := 0.03 * b + 200;
if (b > 500) and (b < 1000) then
b := 0.05 * b + 200;
if b > 1000 then
b := 0.08 * b + 200;
readln (c);
if c < 500 then
c := 0.03 * c + 200;
if (c > 500) and (c < 1000) then
c := 0.05 * c + 200;
if c > 1000 then
c := 0.08 * c + 200;
if (a > b) and (a > c) then
a := a +200;
else
if b > c then
b := b + 200;
else
c := c + 200;
wreteln ('ЗП первого менеджера: ', a, '$');
wreteln ('ЗП второго менеджера: ', b, '$');
wreteln ('ЗП третьего менеджера: ', c, '$')
end.
Пишу задание вторым номером, поэтому постараюсь на качество.
Нам нужно найти сначала сумму всего роста, потом поделить его на общее количество учеников. Потом сопоставить каждый элемент со средним числом и высчитать количество высоких учеников.
Будет это выглядить так:
uses crt; //Если используете паскаль ABC, это строка нужна для удобства
Var a: array [1..25] of real; i,otvet: integer; h,s:real;
//Объявляем переменные. Массив,среднее число и суммарный рост - любые числа. Сам ответ - целые числа
Begin
For i:=1 to 25 do begin
Writeln('Введите рост ученика номер ',i); readln(a[i]);
//Здесь мы вводим рост с клавиатуры
end;
For i:=1 to 25 do
s:=s+a[i];
//находим суммарный рост всех учеников
h:=s/25;
// делим на их количество. Теперь переменная h - это средний рост
For i:=1 to 25 do
if a[i]>h then otvet:=otvet+1;
// А здесь проверяем каждый элемет массива. Если он выше значения среднего роста, мы прибавляем единицу к переменной "otvet". Там мы считаем количество высоких уч.
Writeln('Средний рост в классе равен ',h);
Writeln('Количество высоких учеников в классе равно ',otvet);
//вывод данных
end.