Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ддддд
Language: PASCAL
Code:
     uses crt;
var s:string;
    i:byte;
begin
clrscr;
writeln('Введите строку');
readln(s);
for i:=length(s) downto 1 do
if i mod 3=0 then insert(' ',s,i+1);
write(s);
readln
end.
          
Comments: