⇢ Ал
Алексей
Напишите алгоритм на языке Паскаль
Пожалуйста, напиши на Паскале *-*
Алгоритм 4
Сим: v, w;
Цел: a, b;
{ Запросить v;
a:= LEN (v);
w:= " ";
Делать от b:=1 до a
{ w:=w+ Часть (v, a+1-b, 1); }
Сообщить w;
}
НБ
Никита Бледных
var v,w:string; a,b:integer;
begin
readln(v); w:=''; a:=length(v);
for b:=1 to a do w:=w+copy(v,a+1-b,1);
writeln(w); readln
end.
ЕС
Елена Соболева
типо программу надо?
Похожие вопросы