По представленной ниже информации составьте таблицу распределения суши и воды на поверхности земного шара.
площадь поверхности земли - 510 072 тыс. кв. км, в том числе площадь суши - 148 940 тыс. кв. км (29,2%), площадь водной поверхности - 361 132 тыс. кв. км (70,8%). при этом суша большей части лежит в северном полушарии, а водная поверхность - наоборот, в южном. в северном полушарии водная поверхность занимает 61%, а поверхность суши - 39%; для южного полушария эти соотношения таковы: 81% воды и 19% суши

var  n : integer; beginreadln (n); case n of1, 2, 12 : writeln ('зима'); 3, 4, 5 : writeln ('весна'); 6, 7, 8 : writeln ('лето'); 9, 10, 11 : writeln ('осень'); end; end.

с cd-r информацию нельзя удалить, можно только добавить. с cd-rw- можно удалить.

program ttt; var i,j,a,b,c: integer; beginreadln(a); readln(b); readln(c); if (a> b) then if (a> c) then begin write(a); if (b> c) then begin write(b); write(c) end; else begin write(c); write(b); endend; elseif (b> c) then begin write (b); if(a> c)then begin write(a); write(c); end; else begin write(c); write(a); end; end; else begin write(c); if(a> b) then begin write(a); write(b)end; else begin write(b); write(a); end; end; end; неоптимальный, но понятный алгоритм.а в другом случае можноо оптимизировать.. как- подумай -; )

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.