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

[MaxiRush]

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

М

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

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

[MaxiRush]

Тем, у кого будет подобное задание... Вот что получилось:

program hz;
uses crt;
procedure TwoNumbers;
var m,n: integer;
y:=1;
Begin
 Write ('Введите числа m,n=');
 Read(m,n);
 if m=n then begin m:=y; n:=y; end
 else begin
  if m>n then 
    n:=m
  else
    m := n;
end;
 Write('m=',m,'  ','n=',n);
end;

procedure Find_rkt;
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;

var
  task: integer;
begin
  repeat
    writeln(' выберите программу : 1.первая, 2.вторая');
    ReadLn(task);
    case task of
      1: TwoNumbers();
      2: Find_rkt();
    end;
  until task = 0;
end.

Очень благодарен за помощь, если надо кидану денюшку на счет или номер, пиши если что в личку)

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