Издают звук, это точно, мы не давно проходили))
N=int(input())
if n<7:
print('ребёнок')
elif n<18:
print('ученица')
elif n<50:
print('работающися')
else:
print('пенсионерка')
1.Системное программное обеспечение — это комплекс программ, которые обеспечивают эффективное управление компонентами вычислительной системы, такими как процессор, оперативная память, каналы ввода-вывода, сетевое и коммуникационное оборудование и т. п.
2. ЭВМ – служат для решения более узкого круга задач связанных, как правило, с управлением технологическими объектами, регистрацией, накоплением и обработкой относительно небольших объемов данных.
3. Прикладная программа, или приложение, — программа, предназначенная для выполнения определённых задач и рассчитанная на непосредственное взаимодействие с пользователем.
4. Система программирования — это система для разработки новых программ на конкретном языке программирования. Современные системы программирования обычно предоставляют пользователям мощные и удобные средства разработки программ.
5.(фото вверху)
6. Ее функциями являются: распределение вычислительных ресурсов, запуск и контроль выполнения программ, управление стандартными внешними устройствами, управление файлами. Для обеспечения работы с дополнительными внешними устройствами в состав управляющей части операционной системы входят драйверы.
Ну я не знаю я такого еще пока что не знаю ты скажешь зачем
я писал тебе а я хз
Var a,b,c,min:integer;
begin
write('Введите a: ');
readln(a);
min:=a;
write('Введите b: ');
readln(b);
if b<min then min:=b;
write('Введите c: ');
readln(c);
if c<min then min:=c;
writeln('Наименьшее: ',min);
<span>end.
Для VBA
Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim min As Integer
</span>a = InputBox("Введите A: ")<span>
min = a
b = InputBox("</span>Введите <span>B: ")
If b < min Then min = b
c = InputBox("</span>Введите <span>C: ")
If c < min Then min = c
MsgBox ("Наименьшее: " & min)
End Sub
Для наибольшего
</span>Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim max As Integer
a = InputBox("Введите A: ")
max= a
b = InputBox("Введите B: ")
If b > max Then max = b
c = InputBox("Введите C: ")
If c > max Then max = c
MsgBox ("Наибольшее: " & max )
End Sub