составьте программу позволяющую удвоить каждый символ заданной строки и вывести полученную строку на экран
5-9 класс
|
var a,b:string;
i: integer;
begin
write('Введите строку: '); readln(a);
b:='';
for i:= 1 to length(a) do b:=b+a[i]+a[i];
write('Новая строка: ',b);
end.
Другие вопросы из категории
дсчитает, сколько деталей изготовил рабочий за 8 часов работы. Зафиксируйте свои действия на каждом из этапов решения этой задачи.
1-й этап
2-й этап
3-й этап
4-й этап
5-й этап
Читайте также
программу ввода элементов массива b[1..6] с клавиатуры и вывода на экран элементов с положительными значемиями
2-ая Составить программу , которая в двумерном массиве случайных чисел элементы всех четных строк делает нулевыми
язык паскаль
Составить программу, определяющую, является ли данное утверждение истинным:Ровно одно из чисел А и В не превышает 100
результаты.:
· Если первое из них отрицательно, а второе вдвое больше третьего, то выведите среднее арифметическое всех четырех чисел.
· Если произведение этих чисел больше их суммы, то выведите эти сумму и произведение.
· Если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих чисел, их произведение и сумму
· Иначе, выведите удвоенные значения этих чисел
программу, которая запрашивала три числа, подсчитывала их средне и сумму и на экран выводила фразу "Их среднее равно..." и "Их сумма равна..."