В таблице приведен фрагмент базы данных с результатами тестирования.
Сколько записей в этой таблице удовлетворяют условию
((Пол = 'м') И (Французский > Немецкий)) ИЛИ ((Пол = 'ж') И (Английский < Французский))?
варианты:во вложенниии

164

217

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

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

kaaanrakun

Информатика

4,6(94 оценок)

"школьный вариант" (чтобы помучиться): // pascalabc.net 3.0б сборка 1066 var s1,s2: string; p,q: set of char; i: integer; c: char; begin write('введите первую строку: '); readln(s1); write('введите вторую строку: '); readln(s2); p: =[]; q: =[]; for i: =1 to length(s1) do include(p,s1[i]); for i: =1 to length(s2) do include(q,s2[i]); p: =p*q; for c: =' ' to chr(255) do if c in p then write(c,' '); writeln end. тестовое решение: введите первую строку: карл у клары украл кораллы введите вторую строку: клара у карла украла кларнет к а к л р у современный вариант: // pascalabc.net 3.0б сборка 1066 begin var s1: =readlnstring('введите первую строку: '); var s2: =readlnstring('введите вторую строку: '); writeln('общие символы в строках: ',s1.intersect(s2).sorted); end. тестовое решение: введите первую строку: карл у клары украл кораллы введите вторую строку: клара у карла украла кларнет общие символы в строках: [ ,к,а,к,л,р,у]