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

Питон програмирование До КОНЦА 2
На вход программе подается последовательность слов, каждое слово на отдельной строке. Концом последовательности является слово «КОНЕЦ» или «конец» (большими или маленькими буквами, без кавычек). Напишите программу, которая выводит члены данной последовательности.

Формат входных данных
На вход программе подается последовательность слов, каждое слово на отдельной строке.

Формат выходных данных
Программа должна вывести члены данной последовательности.

Sample Input 1:

JavaScript
C++
C#
Ruby
PHP
КОНЕЦ
Python
Sample Output 1:

JavaScript
C++
C#
Ruby
PHP
Sample Input 2:

Великобритания
США
Китай
КОНЕЦ
Ватикан
Sample Output 2:

Великобритания
США
Китай
Sample Input 3:

for
while
конец
for while
Sample Output 3:

for
while
Напишите программу.

👇
Ответ:
aminochka1516
aminochka1516
14.12.2021

a= input()

#ввести слово (объяснение написанного)

while a!="КОНЕЦ" and a!="конец":

#пока a не равно КОНЕЦ и не равно конец вывести a(объяснение написанного)

#нажми Enter

     print(a)

#Вывести на экран a(объяснение написанного)

#Нажми Enter

     a=input()

#Конец написания программы

Объяснение:

4,6(51 оценок)
Открыть все ответы
Ответ:
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=MatrixRandom(3,2,-99,99);
  Writeln('Массив А');
  for var i:=0 to 2 do begin
    for var j:=0 to 1 do Write(a[i,j]:4);
    Writeln
    end;
  var b:=MatrixRandom(3,2,-99,99);
  Writeln('Массив B');
  for var i:=0 to 2 do begin
    for var j:=0 to 1 do Write(b[i,j]:4);
    Writeln
    end;
  var c:array[0..2,0..1] of real;
  Writeln('Результирующий массив');
  for var i:=0 to 2 do begin
    for var j:=0 to 1 do begin
      c[i,j]:=a[i,j]*b[i,j]/10; Write(c[i,j]:7:1)
      end;
    Writeln
    end
end.

Тестовое решение
Массив А
 -91 -93
 -62   9
 -97   6
Массив B
 -64  18
  57 -34
 -65 -30
Результирующий массив
  582.4 -167.4
 -353.4  -30.6
  630.5  -18.0
4,5(20 оценок)
Ответ:
NwM12
NwM12
14.12.2021
Var
    n: integer;
    min, max: 0..9;

begin
    Write('введите натуральное число: ');
    Readln(n);
   
    {инициализация начальных значений минимума и максимума}
    min := 9;
    max := 0;
   
    {разбиение числа на отдельные цифры и поиск их минимума и максимума}
    while n <> 0 do
    begin
        if n mod 10 < min then min := n mod 10;
        if n mod 10 > max then max := n mod 10;
        n := n div 10
    end;
   
    {Вычисление и вывод среднего геометрического минимума и максимума}
    writeln('Среднее геометрическое: ', sqrt(max * min));
end.

Собственно сначала программа ищет минимальную и максимальную цифру в числе, а потом считает среднее геометрическое или среднее пропорциональное этих двух цифр.
4,4(1 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ