Var n:integer;
begin
write('n = ');
readln(n);
if n mod 2 = 0
then n:=3*n else n:=2*n;
writeln('n = ',n);
end.
Пример:
n = 7
n = 14
<span> // 1 гриб</span><span>
// 2-4 гриба</span><span>
// 5-10 грибов</span><span>
// 11-20 грибов исключение</span><span>
// 21 гриб</span><span>
// 22-24 гриба</span><span>
// 25-30 грибов</span><span>
// 31 гриб</span><span>
// 32-34 гриба</span><span>
// 35-40 грибов</span><span>
// 41 гриб</span><span>
// 42-44 гриба</span><span>
// 45-50 грибов</span><span>
// 51 гриб
как видим из вышеизложенного, мы должны только запрограммировать окончание первого десятка и исключение 11-20, которое будет портить нам малину, т.к. там одно окончание будет.
А остальное берем целочисленный остаток от деления на 10, и добавляем нужное окончание.</span><span />
N = int(input('N = '))
k1=0
k2=0
k3=0
for i in range(N):
a = int(input())
if a==0:
k1=k1+1
elif a>0:
k2=k2+1
else:
k3=k3+1
print(k1)
print(k2)
print(k3)
Пример:
<span>N = 5
28
0
0
0
0
4
1
0</span>
Страница в Word - это пустая страница чтоб её добавить
World - это приложение 《Microsoft world》в компьютере
я думаю что поняла ваш вопрос...и ответила правильно