modellisimo-a
?>

Паскаль. в первой строке программы задаётся кол-во чисел, не превышающих 300. найти максимальное число, оканчивающееся на 3.

Информатика

Ответы

timonina29
Var i, n, x:integer;
begin
write ('Введите число: ');
readln (n);
for i:=1 to n do
if i mod 10 = 3 then x:=i;
writeln (x)
end.

Пример:
Введите число: 100
93
Хохлов

Задача не совсем внятная, так что предполагается следующее:

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.

serg1976g

Персональный компьютер (ПК) - это не один электронный аппарат, а небольшой комплекс взаимосвязанных устройств, каждое из которых выполняет определенные функции. Часто употребляемый термин “конфигурация ПК” означает, что конкретный компьютер может работать с разным набором внешних (или периферийных) устройств, например, с принтером, модемом, сканером и т.д.

Эффективность использования ПК в большой степени определяется количеством и типами внешних устройств, которые могут применяться в его составе. Внешние устройства обеспечивают взаимодействие пользователя с ПК.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Паскаль. в первой строке программы задаётся кол-во чисел, не превышающих 300. найти максимальное число, оканчивающееся на 3.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Mariya694
Надежда-Алексеевна82
TrubnikovKlimenok926
ikavto6
Angelina1139
alex13izmailov
Alekseeva_Khlistov
Larisa Bulgakova
dokurova634
nikdenly
Tatianamir765654
litlenet
kuzinnv1968
Lazar
andreyduborezz2913