1.
Var s:string;
z,i,k:integer;
Beginz:=0;
write('Введите строку: ');
readln(s);
k:=0;
For i:=1 to Length(s) do
if s[i]='!' then
Beginfor i:=1 to Length(s) do
if s[i] = '!' then begin
write(i);exit;
end;if k<>0 then
writeln('Порядковый номер первого восклицательного знака = ', z);
if k = 0 then writeln('Восклицательных знаков нет!');
readln;
def amount(a, b, c): # Создаём функцию & метод
print (a + b + c) # Выводим на экран сумму трёх чисел, переданных в параметрах amount(a, b, c)
amount(1, 4, 2) # Передаём параметры в ()
input() #Чтобы консоль сразу не закрылась
Объяснение:
Не знаю что тут можно объяснять - иди учи Python !!!