Дана строка, состоящая из слов разделенных пробелом. выведите на экран слова, заменив строчную букву каждого слова прописной. определить количество букв "а" в последнем слове
Var a,sum,pro:integer; Begin write('Введите трёхзначное положительное число: '); readln(a); if (a<100) or (a>999) then write('Это не трёхзначное число. Перезапустите программу!') else Begin sum:= a mod 10 + a div 10 mod 10 + a div 100; pro:= a mod 10 * a div 10 mod 10 * a div 100; if (sum>9) and (sum<100) then Writeln('Сумма цифр числа ',a,' - двухзначное число (',sum,')') else Writeln('Сумма цифр числа ',a,' - не двухзначное число (',sum,')'); if (pro>99) and (pro<1000) then Writeln('Произведение цифр числа ',a,' - трёхзначное число (',pro,')') else Writeln('Произведение цифр числа ',a,' - не трёхзначное число (',pro,')'); if (sum mod 3) = 0 then write('Эта же сумма (',sum,') кратна трём') else write('Эта сумма (',sum,') не кратна трём'); end; End.
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016 begin var n:=ReadInteger('n='); var m:=18; var a:=MatrixRandom(m,n,-999,999); var imax:=0; var jmax:=0; for var i:=0 to m-1 do begin for var j:=0 to n-1 do begin Write(a[i,j]:5); if abs(a[i,j])>abs(a[imax,jmax]) then begin imax:=i; jmax:=j end end; Writeln end; Writeln('Максимум по модулю А[',imax+1,',',jmax+1, ']=',a[imax,jmax]) end.
def zadanie(str)
p str
str = str.downcase
a = str.split(" ")
return [str, a.last.count("а")]
end
# Примеры применения
p zadanie("Шла Саша по шоссе и сосала сушку")
p zadanie("А роза упала на лапу азора")
p zadanie("Чему быть - тому не миновать")