var w1, w2: string; m: set of char; c: char; i: integer;
begin Writeln('Введите первое "слово"'); Readln(w1); Writeln('Введите второе "слово"'); Readln(w2); m := []; w1 := LowerCase(w1);w2 := LowerCase(w2); for i := 1 to length(w1) do if w1[i] in gl then Include(m, w1[i]); for i := 1 to length(w2) do if w2[i] in m then Exclude(m, w2[i]); Writeln('Гласные, присутствующие в первом слове и отсутствующие во втором:'); foreach c in m do Write(c, ' '); Writeln end.
Тестовое решение: Введите первое "слово" Дай, Джим, на счастье лапу мне! Введите второе "слово" Сергей Есенин Гласные, присутствующие в первом слове и отсутствующие во втором: а у
Var A: array[1..20, 1..20] of integer; m, n, k, i, j: integer; begin randomize; repeat write('Введите число столбцов и строк через пробел: '); readln(n, m); until (n in [1..20]) and (m in [1..20]); for i := 1 to m do begin for j := 1 to n do begin A[ i, j ] := random(19) - 9; write(A[i, j]:5); end; if odd(i) then writeln(' ') else writeln; end; writeln; writeln('Заменяем отрицательные числа на нули, положительные - на единицы:'); writeln; for i := 1 to m do begin for j := 1 to n do begin if A[ i, j ] <= 0 then A[ i, j ] := 0 else A[ i, j ] := 1; write(A[i, j]:5); end; if odd(i) then writeln(' ') else writeln; end; end.
p.s: не совсем понятно последнее задание - вывести нижнюю треугольную матрицу. Сделать новую или что?
