Составьте программу в Pascal , которая запрашивает значение двух строк и число N. Программа печатает N раз вторую строку, затем печатает первую строку
10-11 класс
|
и сообщение о количестве повторений.
Например:
Вход: Счастливого пути!
ДРУЗЬЯ
2
Выход: ДРУЗЬЯ
ДРУЗЬЯ
Счастливого пути!
Количество повторений - 2
var s1, s2: string;
n, i: integer;
begin
readln (s1);
readln(s2);
readln(n);
for i := 1 to n do
writeln (s2);
writeln (s1);
writeln ('Кол-во повторений: ');
write (n);
end.
Другие вопросы из категории
№1.Исследуйте школу, в которой вы учитесь, как систему: 1) Какого типа эта система: естественная или искусственная? 2)Выделите входящие в нее подсистемы 3) Выделите материальные и информационные связи 4) Какие, с вашей точки зрения, изменения в структуре школы следует сделать, чтобы она лучшим образом выполняла свое назначение?
№2. Рассмотрите школьный урок как систему управления. Опишите все кибернетические компоненты этой системы. Обратите внимание на множественность различных механизмов прямой и обратной связи.
Задание:
Определить сколько раз в тексте встречается слово "Давши".
Исходный текст:
Не давши слово-крепись,
А давши - Держись
Читайте также
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
массив.Найти сумму определённого элемента;количество элементов,стоящих на нечетных местах;произведение элементов,кратных 5.
записано то, что раньше хранилось в b, а в переменной b записано то, что раньше хранилось в a). Затем выведите значения переменных.