Var
s:integer;
x:real;
begin
repeat
begin
write('Сколько всего журавликов сделали: ');
readln(s);
if s mod 6<>0 then writeln('Они не могли сделать столько, противоречит условию')
end
until s mod 6=0;
x:=s/6;
writeln('Петя и Сережа сделали каждый по ',x);
writeln('Катя сделала ',4*x)
<span>end.</span>
Или 4,или 1
но больше всего 4
1-4=-3; (2);
(-3)^2=9; (1);
9-4=5; (2);
5^2=25; (1);
25-4=21; (2);
Ответ: 21212
MC (сокращение от английского Memory Clear (Очистить память)) - кнопка означает, что данный сотрутся (удаляться) из ячейки памяти калькулятора.
То-есть предыдущее вычисления забудутся калькулятором. Это все равно что "очистить кэш" из смартфонов.
Я надеюсь, что Вам помог!
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 знака после запятой