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

Нужна программа на турбо ! запросить у пользователя строку s, сформировать из нее строку s1, переставив символы в строке s местами: первый с последним, второй с предпоследним и т.д. вывести на чистый экран строки s и s1, рядом их длину.

👇
Ответ:
tat321
tat321
08.08.2020
Uses Crt;

var
   s,s1:string;
   i,n,t:integer;

begin
   ClrScr;
   Write('Введите строку: '); Readln(s);
   ClrScr;
   n:=Length(s);
   s1:=Copy(s,1,n);
   for i:=1 to n do s1[i]:=s[n-i+1];
   Writeln(s,' ',Length(s));
   Writeln(s1,' ',Length(s1));
   ReadKey
end.

Нужна программа на турбо ! запросить у пользователя строку s, сформировать из нее строку s1, переста
4,8(62 оценок)
Открыть все ответы
Ответ:
pollyholly123
pollyholly123
08.08.2020
Const
n=5;m=10;
var
b:array[1..n,1..m]of integer;
i,j,k,buf,l:integer;
begin
    for i:=1 to n do
         begin
           writeln;
              for j:=1 to m do
                 begin
                    b[i,j]:=random(50);
                    write(b[i,j]:4);
                  end;
           end;
writeln;
for j:=1 to m do
   begin
      k:=0;
       for i:=1 to n-1 do
            if b[i,j]<b[i+1,j]then
                k:=k+1;
            if k=n-1 then
               buf:=buf+1;
    end;
k:=0;
for l:=2 to m do
   if l mod 2=0 then
     for i:=1 to n-1 do
       for j:=i+1 to n do
           if b[i,l]>b[j,l]then
               begin
                   k:=b[i,l];
                   b[i,l]:=b[j,l];
                   b[j,l]:=k;
                end;
writeln('увеличилось  ',m div 2-buf);
for i:=1 to n do
   begin
      writeln;
          for j:=1 to m do
             write(b[i,j]:4);
    end;
end.
       
                  
4,5(1 оценок)
Ответ:
masky80984Женя
masky80984Женя
08.08.2020

def check_perfect(number:int, dividers = []):

for i in range(1, number):

 if number%i == 0:

  dividers.append(i)

if sum(dividers) == number:

 return 1

def get_div(num, div = []):

for i in range(1, num):

 if num%i == 0:

  div.append(i)

return div

def main():

number = int(input())

if check_perfect(number):

 print(' '.join(str(num) for num in get_div(number)))

else:

 print(0)

if __name__ == '__main__':

main()

Объяснение:

На случай, если сайт сломает табуляции в коде (А он их сломает), ниже представлен скриншот оригинала кода. Программа протестирована.


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