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.
Program Djonny1981;
uses crt;
const
m=5;
var
a: array[1..m,1..m] of integer;
i, j: integer;
sum: integer;
begin
randomize;
sum:=0;
for i:=1 to m do
begin
for j:=1 to m do
begin
a[i,j]:=random(101)-50;
write(a[i,j]:5);
end;
writeln();
end;
for i:=1 to m do
for j:=1 to m do
if j mod 2 = 0 then {вот здесь проверка, чётный ли столбец}
sum := sum + a[i,j];
writeln('Сумма элементов чётных столбцов равна ',sum);
if sum>0 then
for i:=1 to m do
for j:=1 to m do
if i mod 2 = 1 then
a[i,j]:=a[i,j]*a[i,j]
else
for i:=1 to m do
a[m-i+1,i]:=a[m-i+1,i]+2;
for i:=1 to m do
begin
for j:=1 to m do
write(a[i,j]:5);
writeln();
end;
end.
#include <iostream>using namespace std;int main(){ int a = 0; cin >> a;(вводим число) cout << a%10 << endl;(значит нахождение остатка от деления введенного числа на 10, в паскале бы выглядело так: a mod 10)
}