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 знака после запятой
Таблица истинности во вложении. Конечно, их нужно уметь составлять, но зачастую бывает быстрее предварительно сделать аналитическое преобразование исходного выражения с целью его упрощения.
Как видно, выражение не зависит от В и его таблицу истинности строить гораздо проще.
Var i,r:integer;
p:real;
begin
write ('Введите число,r')
p:=3.14;
i=2*r*p;
writeln (Ответ ' ',i)
readln(i);
end;
Формальные языки - языки, в которых осмысленные сообщения содержат символы конечного алфавита, строятся и интерпретируются по определённым чётким правилам.
Примеры формальных языков: языки программирования, язык логики. Можно построить и свой формальный язык: например, будем бросать монетку и приписывать к строчке О, если выпал орёл, и Р, если выпала решка. Тогда множество строк, содержащих О и Р будет формальным языком, в котором, например, ОРР будет означать, что в первый раз выпал орёл, а потом два раза - решка.
Ответ:
Program triangle;
var ax,bx,cx,ay,by,cy:integer;
begin
Writeln('Введите координату А по Х');
Readln(ax);
Writeln('Введите координату B по Х');
Readln(bx);
Writeln('Введите координату C по Х');
Readln(cx);
Writeln('Введите координату А по Y');
Readln(ay);
Writeln('Введите координату B по Y');
Readln(by);
Writeln('Введите координату C по Y');
Readln(cy);
Writeln('Площадь треугольника равна ', 0.5*((ax-cx)*(by-cy)-(bx-cx)*(ay-cy)));
end.
Подробнее - на Znanija.com - znanija.com/task/4758960#readmore
Объяснение: