М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
natalia245p025sf
natalia245p025sf
02.03.2022 00:12 •  Информатика

Написать программу на питоне которая выводит сколько в корзине (гриб,гриба,грибов)


Написать программу на питоне которая выводит сколько в корзине (гриб,гриба,грибов)

👇
Ответ:
баги82
баги82
02.03.2022

Решение 1:

nominative = 1  # окончания им.падеж: гриб

generative = [2, 3, 4]  # список окончаний род.падеж: гриба

plural_generative = [5, 6, 7, 8, 9, 0]  # список окончаний род.падеж множ-го: грибов

for number in range(0, 51):  # цикл с значением от 0 до 51

   """number % 10  возвращает последнюю цифру из числа"""

   if (number % 10) == nominative:  

       print(f"{number} гриб")

   elif (number % 10) in generative:

       print(f"{number} гриба")

   elif (number % 10) in plural_generative:

       print(f"{number} грибов")

Решение 2:

nominative = 1  # окончания им.падеж: гриб

generative = [2, 3, 4]  # список окончаний род.падеж: гриба

for number in range(0, 51):  # цикл с значением от 0 до 51

   """number % 10  возвращает последнию цифру из числа"""

   if (number % 10) == nominative:

       print(f"{number} гриб")

   elif (number % 10) in generative:

       print(f"{number} гриба")

   else:

       print(f"{number} грибов")

Объяснение:

В комментариях.

4,4(37 оценок)
Открыть все ответы
Ответ:
LaiZyHero
LaiZyHero
02.03.2022
Var
    i, j, n, m: integer;
    s, t: real;
    a: array[1..100, 1..100] of integer;

begin
    randomize;
   
    readln(n, m);
   
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := random(100);
            s := s + a[i, j];
            write(a[i, j]:3, ' ')
        end;
        writeln()
    end;
   
    s := s / n / m;
   
    writeln();
    for j := 1 to m do
    begin
        t := 0;
        for i := 1 to n do
            t := t + a[i, j];
           
        if t / n < s then
            write(j, ', ')
    end
end.
4,8(7 оценок)
Ответ:
lisi4ka228666
lisi4ka228666
02.03.2022
Type arr = array[1..10] of integer; {создаем новый тип, являющийся массивом}
var
  i:integer;
  s:real;
  R,Q,P:arr;                                 
  X:array[0..3] of integer;

function Sum(a: arr): integer;  {функция вычисления суммы элементов массива}
var i:integer; 
begin
foreach i in a do                   {вычисляем сумму элементов по заданному правилу}
  if (i>=2) and (i<=4) then Result :=Result+i
end;                                     {результатом функции будет сумма}

begin
randomize;          {заполняем массивы случайными числами}
for i:=1 to 10 do
  begin
  R[i]:=random(10);
  Q[i]:=random(10);
  P[i]:=random(10)
  end;
write('R: ');                 {распечатываем содержимое массивов на экране}
for i:=1 to 10 do write(R[i],' ');
writeln;
write('Q: ');
for i:=1 to 10 do write(Q[i],' ');
writeln;
write('P: ');
for i:=1 to 10 do write(P[i],' ');
writeln;           {а тут собственно само решение задачи}
X[1]:=Sum(R);{передаем в ф-цию Sum массив R, она считает сумму и записывает в Х1}
writeln('X[1]=',X[1]); 
X[2]:=Sum(Q);{передаем в ф-цию Sum массив Q, она считает сумму и записывает в Х2} 
writeln('X[2]=',X[2]); 
X[3]:=Sum(P);{передаем в ф-цию Sum массив P, она считает сумму и записывает в Х3} 
writeln('X[3]=',X[3])
end.
4,6(71 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ