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

uses crt; vara,b: string; i: integer; beginclrscr; a: ='радость'; for i: =1 to length(a) dob: =a[5]+a[5]+a[4]+a[1]+a[2]; writeln(a); write(b); end.

program prg; const    data = 'радость'; var     str: string; begin     str : = data[5]+data[5]+data[4]+copy(data,1,2);     writeln(str); end.

Ms dos qbasic 1,0 dim m as integer, n as integer cls input "m,n = ", m, n redim a(1 to m, 1 to n) as integer randomize timer for i = 1 to m     for j = 1 to n           a(i, j) = 100 * rnd - 50           print using "####"; a(i, j);           next j     print next i min = 1000: max = -1000 for i = 1 to m     for j = 1 to n           if a(i, j) > max then                 max = a(i, j)                 jmax = j           end if           if a(i, j) < min then                 min = a(i, j)                 jmin = j           end if     next j next i dim p as double p = 1 for i = 1 to m     p = p * a(i, jmax) * a(i, jmin) next i print "p="; p пример m,n = 4,7   11  42 -35  -8 -11 -40 -23   -16 -45 -41  13    0 -41  22   32  48  29 -10  15 -38  22   27 -22 -23  -9    7    2  30 p= 3983377305600

Последняя цифра числа в любой сс при переводе из 10-сс, - это остаток от первого деления этого числа на основание например, в сс-6 : 29: 6=4 и 5 в остатке, значит последней цифрой будет далее (сс менее 6 не рассматриваем, т.к. они не используют знак 5): сс-7: 29: 7=4 ост.1 (не сс-8: 29: 8=3 ост. сс-9: 29: 9=3 ост.2 (не сс-10: 29: 10=2 ост.9 сс-11: 29: 11=2 ост. сс-12: 29: 12=2 ост. сс-13: 29: 13=2 ост. сс-14: 29: 14=2 ост. сс-15: 29: 15=1 ост. сс-16: 29: 16=1 ост. сс-17: 29: 17=1 ост. сс-18: 29: 18=1 ост. сс-19: 29: 19=1 ост. сс-20: 29: 20=1 ост. сс-21: 29: 21=1 ост. сс-22: 29: 22=1 ост. сс23: 29: 23=1 ост. сс-24: 29: 24=1 ост. и т. итак, ответом являются сс 6, 8, 12, 24