Операции с числами по условиям и работа со строкой, Было: Достаточно простая задачка... Опции

[MaxiRush]

ТоварисЧи, огромная просьба о помощи. Нужно написать программу, которая решает две задачи: 1-даны пары целых чисел. Если числа не равны, то следует каждое из них заменить одним и тем же числом, равным большему из исходных, а если равны, то заменить числа на единицы. 2- дана строка. Подсчитать, сколько в ней букв r,k,t.
Буду очень сильно благодарен за помощь.

М

Название изменено. Правила, п.4

Сообщение отредактировано: Lapp - 14.07.2011 3:50

[MaxiRush]

1-я задача, ток я не зная как быть с парами чесел, сделал для 2-х

program lol;
var m,n: integer;
x:=10000000;
y:=1;
Begin
 Write ('m,n=');
 Read(m,n);
 if m<>n then begin m:=x; n:=x; end
        else begin m:=y; n:=y;end;
 Write('m=',m,'  ','n=',n);
end. 

2-я

program string_11;
var s:string;
a,b,c,i:integer;
begin write('введите строку');
readln(s);
a:=0;b:=0;c:=0;
for i:=1 to length(s) do
begin if s[i]='r' then a:=a+1;
if s[i]='k' then b:=b+1;
if s[i]='t' then c:=c+1
end;
writeln('количество букв r=',a);
writeln('количество букв k=',b);
writeln('количество букв t=',c);
readln;
end.

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

Сообщение отредактировано: MaxiRush - 13.07.2011 18:32