Запишите результат выполнения программы:
var s: string;
i: byte;
begin
s:= '3571'; a:='';
for i:= length(s) downto 1 do
a:= a + s[i] + a;
writeln(a);
end.
Другие вопросы по: Информатика
Знаешь правильный ответ?
Запишите результат выполнения программы:var s: string;i: byte;begins:= '3571'; a:='';for i:= length(...
Популярные вопросы