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

5 рядків тексту вводяться з клавіатури. Знайти кількість символів у найдовшому рядку. Вирівняти рядки по найдовшому рядку, поставивши перед кожним рядком необхідну кількість пробілів.

Ввести з клавіатури масив елементів (як додатніх так і від'ємних). Додати стільки елементів, щоб елементів із додатніми та від'ємними значеннями стало б порівну.

👇
Ответ:
schabuneva
schabuneva
02.05.2021

import random

list = []

maxValue = 0

for x in range(5):

   list.append(input(f"{x + 1} строка "))

for x in range(5):

   if(maxValue < len(list[x])):

       maxValue = len(list[x])

for x in range(5):

   space = " " * (maxValue - len(list[x]))

   list[x] = space + list[x] + f"{x} - пробелов: {(maxValue - len(list[x]))}"

for x in list:

   print(x)

minus = 0

plus = 0

index = 0

list = []

print("введіть массив елементів в такому вигляді: \n1 2 3 -1 -2 -3")

string = input()

for x in range(len(string)):

   if(string[x] == " " or x == len(string) - 1):

       list.append(int(string[index:x+1]))

       index = x + 1

for x in list:

   if(x < 0):

       minus +=1

   else:

       plus +=1

if(plus > minus):

   for x in range (plus - minus):

       list.append(random.randint(-999, -1))

else:

   for x in range(minus - plus):

       list.append(random.randint(1, 999))

for x in list:

   print(x)

4,6(6 оценок)
Открыть все ответы
Ответ:
классоопп
классоопп
02.05.2021
Это реализовано с цикла for:

Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do   
Begin   
Write('Введите число: ');   
Readln(a2);   
if a2>a1 then    
k:=k+1;   
a1:=a2;   
End;
if k=2 then 
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.

Это реализовано с цикла while:

Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do   
Begin   
Write('Введите число: ');   
Readln(a2);   
if a2>a1 then    
k:=k+1;   
a1:=a2;   
i:=i+1;   
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.

Это реализовано с цикла repeat:

Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat   
Begin   
i:=i+1;   
Write('Введите число: ');   
Readln(a2);   
if a2>a1 then    
k:=k+1;   
a1:=a2;   
End;
until i=2;
if k=2 then 
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
End.
4,7(72 оценок)
Ответ:
Subject338
Subject338
02.05.2021
Это реализовано с цикла for:

Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do    
Begin    
Write('Введите число: ');    
Readln(a2);    
if a2>a1 then     
k:=k+1;    
a1:=a2;    
End;
if k=2 then 
Writeln('Эта последовательность является возрастающей') else 
Writeln('Эта последовательность не является возрастающей');
End.

Это реализовано с цикла while:

Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do    
Begin    
Write('Введите число: ');    
Readln(a2);    
if a2>a1 then     
k:=k+1;    
a1:=a2;    
i:=i+1;    
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.

Это реализовано с цикла repeat:

Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat    
Begin    
i:=i+1;    
Write('Введите число: ');    
Readln(a2);    
if a2>a1 then     
k:=k+1;    
a1:=a2;    
End;
until i=2;
if k=2 then 
Writeln('Эта последовательность является возрастающей') else 
Writeln('Эта последовательность не является возрастающей');
End.
4,6(22 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ