Program Wybor;
uses Crt;
var y, a, b :real;
begin
a:=226.3;
b:=931.3;
if (a-b)<(10*ln(1/3.1415926) ) then y:= b*sqr(x)*x -a*ln(abs(2*x))+sqr(sin(x))
else y:=sqrt(b*sin(x)/cos(x))-exp(3*x);
WriteLn('y=', y:6:3);
ReadLn;
end.
Типа того, только проверь все внимательно, а то ТУРБО устроил мне пляску Святого Витта... Кстати, в Паскале нет тангенса, его заменяем sin(x)/cos(x) и я в программе "СЪЭКОНОМИЛ" описание переменной Х...
n = input() # n тут берется как строка(слово)
composition= 1
summa = 0
mult=0
h=0
for i in n: #читает каждый элемент строки по 1 символу
summa += int(i) #Складывает каждый элемент где int() - превращает символ в цифру
if int(i) != 0 and int(i)%2==0:
composition *= int(i)
if int(i)%3==0 and int(i)!=0:
mult+=1
h+=1 # - для кол-ва цифр в числе
print("\nсумма: ", summa)
print("Кратные числа трем: ", mult)
print("произведение четных : ", composition)
print("Среднее арифметическое цифр: ",str(round((summa/h),1))) #round помжно убрать, округлил до 1 знака после запятой
Человека окружает множество объектов, но самые главные для существования индивидума это воздух, вода, еда и социум без них никакой человек не в состоянии жить
Значёк это файл с расширением ico. Его можно использовать как иконку для приложение, ярлыка , как иконку любого типа файлов в windows. Ярлык это файл с определенным расширением lnk. Предполагается что при открытие ярлыка произойдет открытие файла на который ссылается ярлык.