const n=5;
procedure Swap(var a,b:integer);
var tmp:integer;
begin
tmp:=a;
a:=b;
b:=tmp;
end;
var a:array[0..n-1,0..n-1] of integer;
i,j,k:byte;
x:integer;
begin
writeln('Исходная матрица:');
for i:=0 to n-1 do
begin
for j:=0 to n-1 do
begin
read(a[i][j]);
end;
end;
for i:=0 to n-1 do
begin
for j:=0 to n-1 do
begin
write(a[i,j]:3);
end;
writeln;
end;
//сортировка всей матрицы по возрастанию
for i:=0 to n*n-2 do
for j:=i+1 to n*n-1 do
if a[i div n,i mod n]>a[j div n,j mod n]
then Swap(a[i div n,i mod n],a[j div n,j mod n]);
writeln('Отсортированная матрица по возрастанию');
for i:=0 to n-1 do
begin
for j:=0 to n-1 do
write(a[i,j]:3);
writeln;
end;
end.
// РЕШЕНИЕ ЗАДАЧ Telegram: @Vadukk
Объяснение:
Рассмотрим решение
Объяснение:
Итак, задача состоит в том, чтобы переставить слова, разделенные пробелом, этим и будем пользоваться.
На вход получим строку s, где слова разделены пробелом. Запишем все слова, разделенные пробелом, в список lis_s с list comprehensions.
В список rub запишем все элементы из списка lis_s в обратном порядке - в этом нам уменьшающийся range (шаг -1).
Так как требуется строка, а не список, то введем новую строку new_string, которая и будет являться результатом. В цикле for будем прибавлять к ней каждый элемент списка rub. Однако мы столкнемся с некоторой проблемой: слова не будут разделены. Тогда будем добавлять пробелы после каждого слова. Но и здесь ждет подвох: так мы добавим пробел и после последнего слова, тем самым изменив длину данной нам сначала строки. Выход: введем переменную bad_count, в каждой итерации цикла for будем прибавлять к ней 1, пока значение bad_count не совпадет с длиной списка rub. Как только это случится, пробел мы не прибавим.
Подробное решение приведено на скриншоте.
Поделитесь своими знаниями, ответьте на вопрос:
Информатика 9 класс 1 . текст рассказа набран на компьютере. информационный объём получившегося файла 9 кбайт. текст занимает 6 страниц, на каждой странице одинаковое количество строк, в каждой строке 48 симво‐ лов. все символы представлены в кодировке кои-8, в которой каждый символ кодируется 8 битами. определите, сколько строк помещается на каждой странице. 1) 48 2) 24 3) 32 4) 12 2. рассказ, набранный на компьютере, содержит 8 страниц, на каждой странице 40 строк, в каждой строке 48 символов. определите информационный объём рассказа в кодировке windows, в которой каж‐ дый символ кодируется 8 битами. 1) 15000 байт 2) 120000 бит 3) 15 кбайт 4) 30 кбайт 3. для какого из чисел ложно высказывание: не (число < 10) или не (число чётное)? 1) 123 2) 56 3) 9 4) 8 4. для какого из указанных значений числа x истинно высказывание: (x < 3) и не (x < 2)? 1) 1 2) 2 3) 3 4) 4
2) 3 (8 * 40 * 48 * 8 / (8 * 1024)) = 15;
3) 4 (Таблица истинности);
4) 3 (Таблица истинности);