Надо переставить буквы чтоб получились слова. твракда, оминифяцра, зялогатиамицир, тирфедоашр

1 квадрат

2 цифромания наверное

3 алгоритмизация

 

Var  money, cost,summa : real; count : integer;   tovar: string; begin  writeln('введите исходные данные: ');   writeln('какой товар вы покупаете? ');   readln(tovar);   writeln('по какой цене? ');   readln(cost);   writeln('сколько штук? ');   readln(count);   summa : = cost*count;   writeln('ваш товар - ', tovar, '. стоимость покупки: ',summa: 0: 2);     writeln('сколько денег даете? ');   readln(money);   if money=summa then writeln('свободен, под расчёт') else  if money > summa then writeln('ваша сдача: ', money-summa) else  writeln('нужно добавить: ', summa-money,. ');   end.

Program zwezda; uses crt; var s: string;         i, len: integer ; begin clrscr;   write('ввод строки: '); readln(s);   clrscr;   writeln ('‘строка:   ', s);   writeln;   writeln ('первый символ: ', s[1]);   writeln;   len: =length(s);   writeln('посдедний символ: ',s[len]);   writeln;   for i: =2 to len -1 do         s[i]: ='*';   writeln('результат:   ',s);   readln; end.