Составьте алгоритм, утраивающий каждую букву в заданном тексте. Выведите полученную строку на экран - VB

Формулировка задачи:

переделайте плиз в бэйсик

program slava_1;
uses crt;
var
  s: string;
 
function three(s: string): string;
var
  n, i: integer;
  c: char;
begin
  n:= length(s);
  for i:= n downto 1 do
  begin
    c := s[i];
    insert(c, s, i);
    insert(c, s, i);
  end;
  three := s;
end;
 
begin
  clrscr;
  write('Vvedite strocu:');
  readln(s);
  writeln('new stroca: ',three(s));
  readln;
end.

Решение задачи: «Составьте алгоритм, утраивающий каждую букву в заданном тексте. Выведите полученную строку на экран»

textual
                            Листинг программы 
                        

                            st = InputBox("Г‚ГўГ®Г¤", , "qwerty")
t = ""
For i = 1 To Len(st)
    t = t & String(3, Mid(st, i, 1))
Next
MsgBox t
                        

Оцени полезность:

5 голосов , оценка 4.4 из 5

Похожие ответы