Задача не совсем внятная, так что предполагается следующее:
1. С клавиатуры вводится кол-во деталей, которые должен сделать 2-й слесарь, то есть без учета брака.
2. 3-й слесарь не сделал на 50 деталей меньше 1-го, а
должен был сделать.
3. Каждый рабочий получает деньги только за качественную деталь (не брак).
var s1,s2,s3,k1,k2,k3: integer;
begin
write('Количество деталей для 2-го слесаря (не менее 100): ');
readln(k2);
k2:=k2-k2 div 5;
k1:=2*k2;
k3:=k1-50;
k3:=k3-k3 div 3;
s1:=20*k1;
s2:=15*k2;
s3:=10*k3;
writeln('1 слесарь сделал ',k1,' деталей, он заработал ',s1,' тенге');
writeln('2 слесарь сделал ',k2,' деталей, он заработал ',s2,' тенге');
writeln('3 слесарь сделал ',k3,' деталей, он заработал ',s3,' тенге');
writeln('Всего 3 слесаря заработали ',s1+s2+s3,' тенге');
end.
Персональный компьютер (ПК) - это не один электронный аппарат, а небольшой комплекс взаимосвязанных устройств, каждое из которых выполняет определенные функции. Часто употребляемый термин “конфигурация ПК” означает, что конкретный компьютер может работать с разным набором внешних (или периферийных) устройств, например, с принтером, модемом, сканером и т.д.
Эффективность использования ПК в большой степени определяется количеством и типами внешних устройств, которые могут применяться в его составе. Внешние устройства обеспечивают взаимодействие пользователя с ПК.
begin
write ('Введите число: ');
readln (n);
for i:=1 to n do
if i mod 10 = 3 then x:=i;
writeln (x)
end.
Пример:
Введите число: 100
93