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

В Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 9. Программа получает на вход числа в последовательности, ввод чисел осуществляется до тех пор, пока не будет введён 0. В последовательности всегда имеется число, оканчивающееся на 9.
Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000.
Программа должна вывести одно число: количество чисел, оканчивающихся на 9.
Пример работы программы:
Входные данные
19
29
24
0
Выходные данные
2​

👇
Ответ:
uhudongoair
uhudongoair
25.09.2021

s = 0

for i in range(0, 1000):

    a = input()

    if int(a) != 0:

        if str(a[-1]) == '9':

            s += 1

        if int(a) >= 30000:

            print('Слишком большое число!')

    else:

        break

print(f'Всего чисел: {s}.')

4,4(69 оценок)
Открыть все ответы
Ответ:
alinacotikmeow
alinacotikmeow
25.09.2021
Var a:array [1..10, 1..10] of integer;
       i, j, max, min, imin, imax, jmin, jmax:integer;
begin 
   imax:=0; imin:=0; jmax:=0; jmin:=0; 
   max:=-maxint;  min:=maxint; 
   for i:=1 to 10 do   
      begin   
         for j:=1 to 10 do     
            begin     
            a[i,j]:=random(89)+10;     
            write(a[i,j],' ');     
            if a[i,j]<min then        
               begin        
                    min:=a[i,j];        
                    imin:=i;        
                    jmin:=j;        
               end;     
               if a[i,j]>max then        
                  begin        
                       max:=a[i,j];        
                       imax:=i;        
                       jmax:=j;        
                  end;     
               end;     
               writeln;     
            end;
   writeln;
   writeln('Максимальный элемент:',max);
   writeln('Его индекс ',imax,' ',jmax);
   writeln('Минимальный элемент:',min);
   writeln('Его индекс ',imin,' ',jmin);
end.
4,7(46 оценок)
Ответ:
таня647
таня647
25.09.2021
Var a:array [1..10, 1..10] of integer;
       i, j, max, min, imin, imax, jmin, jmax:integer;
begin 
   imax:=0; imin:=0; jmax:=0; jmin:=0; 
   max:=-maxint;  min:=maxint; 
   for i:=1 to 10 do   
      begin   
         for j:=1 to 10 do     
            begin     
            a[i,j]:=random(89)+10;     
            write(a[i,j],' ');     
            if a[i,j]<min then        
               begin        
                    min:=a[i,j];        
                    imin:=i;        
                    jmin:=j;        
               end;     
               if a[i,j]>max then        
                  begin        
                       max:=a[i,j];        
                       imax:=i;        
                       jmax:=j;        
                  end;     
               end;     
               writeln;     
            end;
   writeln;
   writeln('Максимальный элемент:',max);
   writeln('Его индекс ',imax,' ',jmax);
   writeln('Минимальный элемент:',min);
   writeln('Его индекс ',imin,' ',jmin);
end.
4,5(50 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ