404(5)=4*5(2)+0*5+4=25+4=29
Функция pos(sw,ws) возвращает индекс вхождения подстроки sw в строку ws,
Var
A:array[1..10] of integer;
n:integer;
Begin
Write('n = ');Readln(n);
For n:= 1 to n do
Read(A[n]);
Write('Массив: ');
For n:= 1 to n do
Write(A[n],' ');
WriteLn;
WriteLn('Сумма первого и последнего элемента: ',A[1]+A[n]);
End.
n = int(input('Ведите время: '))
i = int(input('Введите день недели: '))
if 18 <= n <= 24 and 1 <= i <=5:
print('Время кодинга пришло')
else:
print('Время кодинга не пришло')
Программа на Паскале прилагается.