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

Разгадайте кроссворд по разделу IV «Программирование алгорит- мов на языке программирования Python», записав слова по горизон-
тали и вертикали (рис. 4.11).
По горизонтали:
1. Чтобы поменять местами элементы массива, используется метод ...
4. ... данных с клавиатуры.
5. Наибольшее число в последовательности это ... .
9. Первая .
..., которая выводит на экран строку текста, состоит из
одной строки print("Hello, world!").
10.
... - это повторение одного и того же участка кода в программе.
11. Какой метод используется, чтобы убрать ненужные элементы
?
12. Структура в Python, где элементы находятся в упорядоченной
последовательности.
13. Как называется функция для печати на экран?
14. Упорядочение элементов в подмножестве данных по какому-либо критерию называется... .
По вертикали:
2. Отсортированный список |1,2,3,5,6,7,8| - это ... .
3. Данные, хранящиеся в прямоугольной таблице, называются матрицами, или ... массивами.
6. ... представляется в языке программирования Python в виде списка строк.
7. Команда Run (F5) - ... .
8. Наименьшее число в последовательности - это ... .
15. ... применяется как перед, так и после элемента массива.​


Разгадайте кроссворд по разделу IV «Программирование алгорит- мов на языке программирования Python»,

👇
Открыть все ответы
Ответ:
namdokp09srw
namdokp09srw
22.01.2023

var

 n, i: Integer;

 s: string;

 isu: Boolean;

begin

 Write ('Введите число: ');

 Read (n);

 if (n >= 1000) and (n <= 9999) then

   WriteLn ('Это число четырехзначное')

 else

   WriteLn ('Это число не четырехзначное');

 s := IntToStr (n);

 isu := True;

 for i := 1 to Length (s) - 1 do begin

   if s [i] <= s [i + 1] then begin

     isu := False;

     Break;

   end;

 end;

 WriteLn;

 if Isu then

   WriteLn ('Цифры расположены в порядке убывания')

 else

   WriteLn ('Цифры НЕ расположены в порядке убывания');

end.

4,8(1 оценок)
Ответ:
анна2259
анна2259
22.01.2023

var

 A, Ap, Ao: array [1..14] of Integer;

 i, c, cp, co: Integer;

 s: Real;

begin

 Randomize;

 WriteLn ('Mассив:');

 for i := Low (A) to High (A) do begin

   A [i] := Random (201) - 100;

   Write (A [i], ' ');

 end;

 cp := 0;

 co := 0;

 for i := Low (A) to High (A) do begin

   if A [i] > 0 then begin

     cp := cp + 1;

     Ap [cp] := A [i];

   end else begin

     co := co + 1;

     Ao [co] := A [i];

   end;

 end;

 c := Low (A);

 for i := 1 to cp do begin

   A [c] := Ap [i];

   c := c + 1;

 end;

 for i := 1 to co do begin

   A [c] := Ao [i];

   c := c + 1;

 end;

 WriteLn;

 WriteLn ('Результат: ');

 for i := Low (A) to High (A) do begin

   Write (A [i], ' ');

 end;

 WriteLn;

 WriteLn ('Количество положительных элементов массива = ', cp);

end.

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