Ответы
Ответ дал:
0
// PascalABC.NET 3.2, сборка 1425 от 22.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
ReadlnString('>').Println(' ')
end.
Пример
> Слово
С л о в о
// Внимание! Если программа не работает, обновите версию!
begin
ReadlnString('>').Println(' ')
end.
Пример
> Слово
С л о в о
Ответ дал:
0
var
s: string;
i: byte;
begin
write('Введите строку: ');
readln(s);
for i := Length(s) downto 1 do
Insert(' ', s, i + 1);
writeln('Итоговая строка: ', s);
readln;
end.
s: string;
i: byte;
begin
write('Введите строку: ');
readln(s);
for i := Length(s) downto 1 do
Insert(' ', s, i + 1);
writeln('Итоговая строка: ', s);
readln;
end.
Вас заинтересует
1 год назад
1 год назад
8 лет назад
8 лет назад
8 лет назад