У тебя запятые в скобках немного не на местах стоят
program pr;var m:string;beginread(m);writeln('Мой повелитель', ' ', m);end.
Если введёшь с всё имя, то всё будет стоять на месте.
Program name;
var
a,b:integer;
begin
//Переменная B является сложным процентом за год
b:=0.24;
а:=10000*b;
a:=a+10000;
writeln('Остаток вклада за один год:',а);
а:=0;
b:=0,48;
a:=10000*b;
a:=a+10000;
writeln('Остаток за второй год:',a);
end.
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 знака после запятой
Код на Python
growth = []
growths = ' '
applicants = []
while 1 == 1:
growths = input()
if growths == '!':
break
else:
growth.append(int(growths))
for i in range(len(growth)):
if growth[i] > 150 and growth[i] < 190:
applicants.append(growth[i])
print(len(applicants))
print(min(applicants), max(applicants))
Var min, max, x: byte;
begin
max=0;
min:=100;
for x:= 10 to 99 do begin
if (x mod 10)+(x div 10)=7 then begin
writeln (x);
if x>max then max:=x;
if x