Дано слово. переставить первые три и последние три буквы, сохранив порядок их следования. решить дву мя способами: а) без использования оператора цикла; б) с использование

Var   s: string;   n: integer; begin   write('вводите: '); readln(s);   n: =length(s);   s: =copy(s,n-2,3)+copy(s,4,n-6)+copy(s,1,3);   writeln(s) end. ************************************************** var   s: string;   c: char;   i,n: integer; begin   write('вводите: '); readln(s);   n: =length(s);   for i: =1 to 3 do begin       c: =s[i]; s[i]: =s[n-3+i]; s[n-3+i]: =c       end;   writeln(s) end. результат вводите: информатика икаорматинф

100 кбайт = 100 * 8 = 800 кбит

800 : 1024 = 0,78125 мбит

0,78125 : 100 = 0,0078125 сек

 

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно