1)
Program n1; var cl,q: string; begin cl:='клоун'; writeln(cl); cl:=cl[1]+cl[4]+cl[2]+cl[3]+cl[5]; writeln(cl); end.
2)
Program n1; var i,k,k1: integer; st: string; x: char; begin readln(st); x:='м'; k := 0; k1:=0; for i := 1 to length(st) do if st[i] = x then k := k + 1; x:='н'; for i := 1 to length(st) do if st[i] = x then k1 := k1 + 1; if(k>k1) then writeln('м больше чем н'); if(k<k1) then writeln('н больше чем м'); end.
(50 строк * 64 символа * 2 байта (1 байт = 8 бит) * 16 страниц )+ 32 рисунка * 6240 байт
Все задачи на информационный объем решаются произведением членов.
Нужно подсчитать количество символов во всём тексте и умножить на количество байтов которым кодируются символы (обычно это 8, но для unicode 16) В данном случае есть ещё картинки, считаем объем и прибавляем.
Кате нужно вымыть посуду и сделать урки, что бы сходить в кино или пригласить друзей
Program yen;
var s,v,t:real;
begin
readln(v,t);
writeln('скорость=',v);
writeln('время',t);
s:=v*t;
writeln('путь,пройденный автомобилем=',s);
end. <span>
</span>