а) var Pi,R:Real
б) var price_notebook,price_cover,value:Integer
в) var A,B:Integer
г) var A,B,C:Integer
<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger;
if n>0 then n-=8;
Writeln(n)
end.
Число букв
Число гласных
Число согласных
То же слово, но записанное в обратном порядке
Порядковый номер первой буквы в русском алфавите
def f():
result = []
for i in range(100, 10000):
str_num = str(i)
num = sum([int(x) ** len(str_num) for x in str_num])
if num == i:
result.append(i)
return result
Ответ:
1)Б
2)ж
3)А
4)В
5)г
6)е
7)д
Объяснение:
Все готово Удачі там тобі)))))