Задача 8 Урок 17
Primary tabs
Проверить можно ли строки из m символов получить строку n.
var i, j, l1, l2: integer; m, n: string; begin write('enter line 1 '); // readln(m); m:='afcbjg'; writeln(); write('enter line 2 '); // readln(n); n:='afcb5g'; writeln(); l1 := length(m); l2 := length(n); if l1 <> l2 then writeln('strings of different lengths') else begin for i := 1 to l1 do for j := 1 to l2 do if m[i] = n[j] then begin m[i] := '0'; n[j] := '0'; break; end; if m = n then writeln('from 1 you can get 2') else writeln('You cant get 2 out of 1'); end; readln(); end.
Вывод консоли:
enter an arbitrary string enter line 1 enter line 2 You cant get 2 out of 1
- Log in to post comments
- 132 reads