var s:string; i:integer; begin Write('Введите слово: '); Readln(s); for i:=Length(s) downto 1 do Insert(' ',s,i); Writeln('Результат: ',s) end.
Пример решения Введите слово: Паскаль Результат: П а с к а л ь
var s1,s2,s3:string; i:integer; begin Write('Введите первое слово: '); Readln(s1); Write('Введите второе слово той же длины: '); Readln(s2); s3:=''; for i:=1 to Length(s1) do s3:=s3+s1[i]+s2[i]; Writeln('Результат: ',s3) end.
Пример решения Введите первое слово: Корова Введите второе слово той же длины: собака Результат: Ксоорбоавкаа
Я исправил ошибки, теперь она работает корректно, но если тебе нужно обязательно использовать if..else, то оставять коммент, я перепишу
#include <iostream>
using namespace std;
int main()
{
setlocale(0, "Rus");
int osenka; ;
cout << "Введите произвольную цифру от 2 до 5: ",
cin >> osenka;
if (osenka == 5) // Если введенная цифра равна 5.
cout << "Вы получили оценку «5» \n";
if (osenka == 4) //Если введенная цифра равна 4
cout << "Вы получили оценку «4». \n";
if (osenka == 3) //Если введенная цифра равна 3
cout << "Вы получили оценку «3». \n";
if (osenka == 2)
cout << "Вы получили оценку «2».\n";
return 0;
}
s:string;
i:integer;
begin
Write('Введите слово: '); Readln(s);
for i:=Length(s) downto 1 do Insert(' ',s,i);
Writeln('Результат: ',s)
end.
Пример решения
Введите слово: Паскаль
Результат: П а с к а л ь
var
s1,s2,s3:string;
i:integer;
begin
Write('Введите первое слово: '); Readln(s1);
Write('Введите второе слово той же длины: '); Readln(s2);
s3:='';
for i:=1 to Length(s1) do s3:=s3+s1[i]+s2[i];
Writeln('Результат: ',s3)
end.
Пример решения
Введите первое слово: Корова
Введите второе слово той же длины: собака
Результат: Ксоорбоавкаа