сервис вопросов и ответов1 2 3 4 5 6 7 8 9 10 0 1 2 3 4 5 6 7 8 9 0 0 1 2 3 4 5 6 7 8 0 0 0 1 2 3 4 5 6 7 . . . . . . . . . . . . . . . . 0
10-11 класс|
|
0 0 0 0 0 0 0 0 1
Нужно получить такую матрицу (язык Pascal).
Paxan37s
13 апр. 2016 г., 18:03:32 (8 лет назад)
89096554393
13 апр. 2016 г., 20:54:55 (8 лет назад)
begin
writeln('1 2 3 4 5 6 7 8 9 10', #13, '0 1 2 3 4 5 6 7 8 9', #13, '0 0 1 2 3 4 5 6 7 8', #13,
'0 0 0 1 2 3 4 5 6 7', #13, '0 0 0 0 1 2 3 4 5 6', #13, '0 0 0 0 0 1 2 3 4 5', #13,
'0 0 0 0 0 0 1 2 3 4', #13, '0 0 0 0 0 0 0 1 2 3', #13, '0 0 0 0 0 0 0 0 1 2', #13,
'0 0 0 0 0 0 0 0 0 1');
end.
:)
Ответить
Другие вопросы из категории
1.Построить файл данных, компонентами которого являются натуральные числа. Подсчитать сумму тех компонент, которые делятся на 5 и не делятся на 10.
2.Построить типизированный файл данных, который состоит из записей с такими полями: название продукта, количество углеводов, количество белков, количество жиров. Вывести названия тех продуктов, которые соответствуют следующим условиям: белки меньше 20, жиры больше 10, углеводы больше 30.
Помогите пожалуйста создать программу на паскале. Надо вывести на экран матрицу 5 на 5 с числами в диапазоне от -8 до 15. Заменить максимальный элемент
каждой строки на противоположный, на минимальный.
Среди всех натуральных четырехзначных чисел
подсчитать количество таких,
сумма квадратов цифр которых
кратна двум или трем.
Ответ записать целым числом.
Читайте также
1. Сформировать внутреннюю и внешнюю файл-функцию.
//Задан одномерный массив,вывести на печать все элементы, которые равны первому.
const n=5;
Var A:array[1..n] of integer;
i:integer;
Begin
// Формируем и выводим массив
Writeln(' Массив: ');
For i:=1 to n do
Begin
A[i]:=Random(10);
Write(A[i]:2);
end;
Writeln();
// Находим элементы, которые равны первому.
Writeln(' Первому элементу равны:');
For i:=1 to n do
begin
If (A[1]=A[i]) then
Write(A[i]:2)
end;
end.
Какое число будет выведено на экран в результате выполнения следующего фрагмента программы (предполагается, что все используемые переменные - целые числа)?
a[1]:=34;
for i:=2 to 10 do a[i]:=a[i-1]+2*i;
writeln(a[9]);
В ответ введите число.
Помогите решить задачуна паскале.
Возможность отправлять закодированные сообщения во время Второй мировой войны была достаточно важной для союзников. Сообщения всегда отправлялись после их кодирования при помощи известного пароля. Иметь фиксированный пароль было небезопасно, поэтому возникла необходимость часто изменять его. Однако следовало разработать механизм отправления нового пароля. У одного из математиков, работавших в криптографической команде, возникла умная идея - отправить пароль, скрытый в самом сообщении. Интересным моментом было то, что получателю сообщения достаточно было знать только размер пароля, а потом найти его в полученном тексте.
Пароль размера n можно найти поиском в тексте наиболее часто встречаемой подстроки из n символов. После нахождения пароля все подстроки совпадающие с ним, удаляются из текста. Теперь пароль можно использовать для расшифровки сообщения.
Однако Ваша задача будет упрощена. Вам достаточно написать программу, которая по заданному размеру пароля и закодированному сообщению найдет пароль в соответствии с описанным выше алгоритмом.
Рассмотрим пример, в котором размер пароля равен трем (n = 3), а текст сообщения имеет вид baababacb. Паролем будет aba, потому что размер этой подстроки 3, она появляется чаще всего во всем тексте (дважды), а остальные шесть различных подстрок появляются только один раз (baa, aab, bab, bac, acb).
Технические условия
Входные данные
Состоит из нескольких тестов. Каждый тест представляет собой одну строку, в которой находится длина пароля n (0 < n ≤ 10) и закодированное сообщение. Сообщение содержит только прописные буквы латинского алфавита, его длина не более 106 и не меньше n.
Выходные данные
Для каждого теста в отдельной строке следует вывести искомый пароль. Если существует несколько паролей, удовлетворяющих задаче, то вывести лексикографически наименьший.
Вы находитесь на странице вопроса "1 2 3 4 5 6 7 8 9 10 0 1 2 3 4 5 6 7 8 9 0 0 1 2 3 4 5 6 7 8 0 0 0 1 2 3 4 5 6 7 . . . . . . . . . . . . . . . . 0", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.