сколько строк будет в таблице истинности (без учета заголовка) для след. логического высказывания:

278

350

Посмотреть ответы 1

Ответы на вопрос:

LEXUS2705

Информатика

4,8(59 оценок)

1) begin var s1: =readlnstring('текст: '); writeln('k = ',s1.where(c-> pos(c,'01')> 0).count); var s2: =s1.select(c-> c='0'? 'a': c).select(c-> c='1'? 'm': c); s2.println; end. пример: текст: текст с 1 и 0: 110+101=1011 k = 12 текст с m и a: mma+mam=mamm 2) var s1,s2: string; i,k: integer; begin writeln('введите текст: '); readln(s1); k: =0; s2: =''; for i: =1 to length(s1) do if s1[i]='0' then begin s2: =s2+'a'; k: =k+1; end else if s1[i]='1' then begin s2: =s2+'m'; k: =k+1; end else s2: =s2+s1[i]; writeln(s2); writeln('k = ',k); end. пример: введите текст: текст с 1 и 0: 110+101=1011 текст с m и a: mma+mam=mamm k = 12