Программа:
Pascal:
№1)
var sum, j, k: integer;
begin
readln(j);
while j <> 0 do begin
inc(k); // k - кол-во введённых чисел
sum := sum + j; // сумма введённых чисел
readln(j);
end;
writeln(sum/k);
end.
№2)
var sum, j, k: integer;
begin
readln(j);
repeat
inc(k); // k - кол-во введённых чисел
sum := sum + j; // сумма введённых чисел
readln(j);
until j = 0;
writeln(sum/k);
end.
№3)
3.1) var sum, j: integer;
begin
readln(j);
repeat
if j mod 2 = 0 then sum += j;
readln(j);
until j = 0;
writeln(sum);
end.
3.2) var sum, j: integer;
begin
readln(j);
while j <> 0 do begin
if j mod 2 = 0 then sum += j;
readln(j);
end;
writeln(sum);
end.
При установке программа КуМир по умолчанию рекомендует выбрать для установки папку внутри директории "Program Files". Если в качестве папки для установки программы КуМир пользователем была выбрана его личная папка, то после деинсталляции (удаления) программы КуМир эта папка уничтожается безвозвратно. Иногда данное поведение не является желательным.
Крайне желательно использовать для установки ту папку, которую система КуМир предлагает по умолчанию. Если это невозможно, например, из-за отстуствия прав, то настоятельно рекомендуется создать отдельную папку, используемую только для установки системы КуМир, и ни для чего больше, и установить систему КуМир в неё. Надо помнить, что эта папка тоже будет удалена при деинсталляции системы КуМир.
Объяснение:
n=str(input("Введіть значення n"))
m=str(input("Введіть значення m"))
i=0
e=0
for g in n:
if(g=="5"):
i+=1
else:
i=i
for g in m:
if(g=="5"):
e+=1
else:
e=e
if(i>e):
print(f"В числі {n} цифра 5 зустрічаєтся частіше, ніж в числі {m}")
else:
print(f"В числі {m} цифра 5 зустрічаєтся частіше, ніж в числі {n}")
Объяснение:
1) Створюємо змінні n i m;
2)Створюємо змінні, які будуть слугувати для підрахунку кількості цифр 5 у числах n i m;
3) Створюємо цикли, які обраховують кількість цифр 5 в числах;
4) Виводимо число, в якому більше цифр 5