Практическая работа: «технология обработки числовой данных» Создать и заполнить таблицу «Учет заработной платы рабочих цеха за месяц». Исходные данные: фамилия рабочего (не менее 8), количество отработанных рабочих дней за месяц (при 6-дневной рабочей неделе); количество часов, отработанных в выходные и праздничные дни; Вычислить 1) для каждого рабочего: - количество часов, отработанных в рабочее время (при 8-часовом рабочем дне); - начисленную заработную плату (стоимость 1 часа – 120 руб.; коэффициент работы в выходные и праздничные дни – 1, 5); - подоходный налог (удержанную сумму – 13 %); - сумму к выдаче; - отклонение от средней заработной платы рабочих цеха в %; 2) по цеху: - минимальное, максимальное и среднее значение заработной платы; - количество рабочих, зарплата которых больше средней; - количество и суммарную зарплату рабочих, работавших в выходные и праздничные дни. Построить гистограмму заработной платы рабочих цеха.
Ответы
Максимальное число, составленное из утроенного произведения цифр будет
9*3*N - не может быть больше 54, т.е.
N может быть только 1 или 2. По условию х>=10 -> N=2 (N -порядок числа).
Поэтому искать нужно среди чисел от 11 до 54. Решение - число 15.
var n,m: integer;
begin
write('n = '); readln(n);
if n=2 then
begin m:=11;
repeat
if (m mod 10)*(m div 10)*3=m then
begin
writeln('число: ',m);
m:=55;
end;
m:=m+1;
until m>54;
end
else writeln('нет решения');
end.
9*3*N - не может быть больше 54, т.е.
N может быть только 1 или 2. По условию х>=10 -> N=2 (N -порядок числа).
Поэтому искать нужно среди чисел от 11 до 54. Решение - число 15.
var n,m: integer;
begin
write('n = '); readln(n);
if n=2 then
begin m:=11;
repeat
if (m mod 10)*(m div 10)*3=m then
begin
writeln('число: ',m);
m:=55;
end;
m:=m+1;
until m>54;
end
else writeln('нет решения');
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Почему опасно открывать для общего доступа жесткий диск?
Автор: morozovalexander90
буду очень благодарна, информатика. Нужно сделать таблицу истинности. B & (A v B)
Автор: Татьяна Гришаевич
Внешняя память-записные книжки , справочники , энциклопедии и т.д что это
Автор: Викторович Попков
Var
ar:array of integer;
n,i,min,mini:integer;
begin
randomize;
min:=2147483647;
writeln('Введите размерность:');
readln(n);
setlength(ar,n);
writeln('Array:');
for i:=0 to n-1 do
begin
ar[i]:=random(-30,30);
write(ar[i]:4);
if min>=ar[i] then
begin
min:=ar[i];
mini:=i;
end;
end;
for i:=0 to mini-1 do
if ar[i]<0 then ar[i]:=0;
writeln;
writeln('Final array:');
for i:=0 to n-1 do
write(ar[i]:4);
end.
Пример ввода:
5
Пример вывода:
Array:
-3 -26 -2 18 -21
Final array:
0 -26 -2 18 -21