Метаграммы: миг-век море-суша бант-коса шар-куб

миг-маг-мак-бак-бек-век  море-горе-гора-нора-ноша-наша-саша-суша 

  море  морс торс тора тура туша  суша 

шар -бар-бор-сор-сок-сук-лук-луб- куб   шар -дар-бар-бор-бой-рой-рок-бок-бук-сук-лук-луб- куб

//pascal abc.net v3.1 сборка 1172 var   ar: array of integer;   n, k2, k3, k4, k5, i: integer;   r: real; begin   write('сколько учеников? ');   readln(n);   setlength(ar, n);   writeln('введите оценки: ');   for i : = 0 to n - 1 do   begin       readln(ar[i]);       case ar[i] of           2: inc(k2);           3: inc(k3);           4: inc(k4);           5: inc(k5);       else           writeln('не оценка');           exit;       end;   end;   writeln('2: ', k2);   writeln('3: ', k3);   writeln('4: ', k4);   writeln('5: ', k5);   write('успеваемость=', (k3 + k4 + k5) / n * 100: 0: 1); end. пример ввода: сколько учеников? 6 введите оценки: 2 2 3 4 5 5 пример вывода: 2: 2 3: 1 4: 1 5: 2 успеваемость=66.7

//pascal abc.net v3.1 сборка 1172 var   f,s: text;   st,sp: string;   i: integer;   c: char; begin   assign(s,'text1.txt');   reset(s);   while not eof(s) do   begin;   readln(s,sp);   st: =st+sp+chr(10)+chr(13);   end;   close(s);   for i: =1 to length(st) div 2 do   begin     c: =st[i];     st[i]: =st[length(st)-i+1];     st[length(st)-i+1]: =c;   end;   assign(f,'text.txt');   rewrite(f);   write(f,st);   close(f); end. текст в файле text1.txt: simple text1and another simple text2new textтекст в файле text.txt: txet wen2 txet elpmis rehtona dna1 txet elpmis