Используя операции и функции для строковых типов данных,написать программу,где из слова РАДОСТЬ получиться слово ССОРА.
10-11 класс
|
program prg;
const
data = 'РАДОСТЬ';
var
str: string;
begin
str := data[5]+data[5]+data[4]+copy(data,1,2);
writeln(str);
end.
uses crt;
var
a,b:string; i:integer;
begin
clrscr;
a:='РАДОСТЬ';
for i:=1 to length(a) do
b:=a[5]+a[5]+a[4]+a[1]+a[2];
writeln(a);
write(b);
end.
Другие вопросы из категории
"Дан массив из 5 чисел, найти количество элементов которые равны минимуму."
Даны два действительных положительных числа x и y.
Тригонометрические действия над числами пронумерованы (1 - sin, 2 - cos, 3 - tg,
пользоваться. Добрые люди, пожалуйста, помогите :с Завтра сдавать :с
Читайте также
2. Дан код символа. Написать программу, выводящую сам символ.
3. Написать программу для вывода на экран всех маленьких латинских букв.
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
2. написать программу, вычисляющую значение функции (y=f(x))
y=x-2, если x>0,
y=0, если x=0,
y=x*x, если x<0
Даны стороны трёх треугольников. Найдите сумму их периметров. Определите процедуру для расчёта периметра треугольника.
Написать программу для Pascal. Задача с использованием подпрограмм-процедур.