2 Миша заполнял таблицу истинности функции (хлгу) V (x = 2) V-w, но успел заполнить лишь фрагменты из трёх различных её строк, даже не указав, какому столбцу таблицы соответствует каждая из переменных w, x, y, z. 0 0 о (хлу)V (x = 2) VW 0 0 0 1 1 0 1 1 Определите, какому столбцу таблицы соответствует каждая из переменных w, x, y, z. В ответе напишите буквы w, x, y, z в том порядке, в котором идут соответствующие им столбцы (сначала буква, соответствующая первому столбцу; затем буква, соответствующая второму столбцу, и т.д.). Буквы в ответе пишите подряд, никаких разделителей между буквами ставить не нужно. Пример. Функция задана выражением x Vу, зависящим от двух переменных, а фрагмент таблицы имеет следующий вид. x Vy 0 0 1 В этом случае первому столбцу соответствует переменная у, а второму столбцу переменная х. В ответе следует написать ух. ответ:
Для того, чтобы узнать, не встречалось ли 20-е число раньше, надо помнить, какие числа были до этого. Так что без массива с меньшим размером, чем 19, не обойтись (на самом деле это так, только если в каждом элементе массива хранить только одно число. Но мы так и будем делать).
Алгоритм для решения задачи выберем простой: записываем все предыдущие числа в массив и для каждого следующего числа проходим по массиву.
var a: array[1..19] of byte; i, j, t: byte;
begin for i := 1 to 20 do begin read(t); if i < 20 then a[i] := t; for j := 1 to i - 1 do if a[j] = t then t := 0; if t > 0 then write(t, ' '); end; end.
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
ReadlnString('->').ToWords(Arr(',','.'))
.Select(w->w.Where(c->Pos(c,'аеёиоуыэюя')>0).GroupBy(x->x)
.Select(x->(x.Key,x.Count)).Where(x->x[1]>2)).Where(x->x.Count>0)
.SelectMany(x->x).Select(x->x.Item1).Distinct.OrderBy(x->x)
.Println(',')
end.
Пример
-> дает,корова,молоко,длинношеее,животное,жираф,катамаран.
а,е,о
Алгоритм для решения задачи выберем простой: записываем все предыдущие числа в массив и для каждого следующего числа проходим по массиву.
var
a: array[1..19] of byte;
i, j, t: byte;
begin
for i := 1 to 20 do
begin
read(t);
if i < 20 then a[i] := t;
for j := 1 to i - 1 do
if a[j] = t then
t := 0;
if t > 0 then write(t, ' ');
end;
end.
Пример ввода:
1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10
Пример вывода:
1 2 3 4 5 6 7 8 9 10