1) Первое задание:
var a: integer;
begin
write ('Введите число: ');
readln (a);
if (a mod 2 = 0) then
writeln ('Четное число')
else writeln ('Не четное');
readln;
end.
2) Второе задание:
program test;
var a: integer;
begin
write ('Введите число: ');
readln (a);
if a > 0 then
a:= a + 1;
if a < 0 then
a:= a - 2;
if a = 0 then
a:= 10;
writeln (a);
end.
Var
k,x:integer;
Begin
readln(x);
k:=2*x;
writeln('2*x = ',k);
k:=3-(5*x);
writeln('3-(5*x)= ',k);
k:=2+x-6;
writeln('2+x-6=',k);
<span>End.</span>
1.запись звука(голоса)-нет
2.обрабатывающее устройство,обуславливающее работу програм и операционной системы-да
3.для печати текста-нет
4.сохранение данных-да
5.визуальное отображение информации-нет
6.управление курсором и отдача команд-да
7.прослушивание аудиофайлов лично и с меньшим диапозонм громкости-да
8.прослушивание аудиофайлов лично и с большим диапозонм громкости-нет
Var n,i,min,max:integer;
begin;
readln(n);
max:=0;
min:=10;
while n>1 do
begin;
if n mod 10>max then max:=n mod 10;
if n mod 10<min then min:=n mod 10;
n:=n div 10;
end;
writeln('Result:',max mod min);
<span>end.</span>
import random
def numbers(s):
mas = [random.randint(1, 15) for i in range(s)]
print(mas)
print("{} елементов имеют максимальное значение".format(mas.count(max(mas))))
numbers(25)