В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
evasyperandreev
evasyperandreev
02.11.2020 18:27 •  Информатика

Дано слово, основное устройство ввода информации в память компьютера.
выполните алгоритм:
1) замените все буквы "а" на "о";
2) заменить 4 и 5 буквына на "н" и "у" соответственно;
3) удалить в слове первую букву "л" и "у";
4) заменить все буквы "о" на "у";
5) получившееся слово записать наоборот.

в ответе слово записывается прописными буквами.

Показать ответ
Ответ:
НеШкольник228228
НеШкольник228228
06.10.2021 14:59

num1 = float(input("Введите первое число: "))-вводиться число

num2 = float(input("Введите второе число: ")) -вводиться второе число

if num1 < num2:  -если нум1 меньше нум2 тогда

   print (num1, "меньше чем", num2)  вывести нум1 меньше чем нум 2

if num1 > num2:  - если нум1 больше чем нум2 тогда

   print (num1, "больше чем", num2)  вывести нум1 больше чем нум2

if num1 == num2:  -если нум1 равно нум2 тогда

   print (num1, "равно", num2)  вывести нум1 равно нум2

if num1 != num2:  -если нум1 не равно нум2 тогда

   print (num1, "не равно",num2) вывести нум 1 не равно нум2

0,0(0 оценок)
Ответ:
мират3
мират3
21.10.2021 01:43
Все решения даны в системе  программирования
PascalABC.NET 3.2, сборка 1382 от 06.02.2017

Если программа не работает, обновите версию!

№1
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  var im:=a.IndexMax;
  Writeln('Максимальный элемент номер ',im+1,' равен ',a[im])
end.

Пример
n= 6
Вводите числа: 13 8 -15 0 16 -24
Максимальный элемент номер 5 равен 16

№2
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  Sort(a,(x,y)->x>y);
  a.Println
end.

Пример
n= 5
Вводите числа: 5 -4 6 0 5
6 5 5 0 -4

№3
begin
  var a:=ArrRandom(ReadInteger('n='),-54,33); a.Println;
  Sort(a,(x,y)->x>y); a.Println
end.

Пример
n= 14
-2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
24 21 18 17 13 12 2 -2 -3 -10 -11 -30 -42 -53

№4
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  var b:=a.Where(x->x>0); b.Println
end.

Пример
n= 14
Вводите числа: -2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
2 17 18 24 12 13 21
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота