Var i : Integer;
Begin
For i:=100 to 999 do
If (i mod 4 = 2) and (i mod 5 = 2) and (i mod 6 = 2) then Writeln(i);
end.
Результат:
122
182
242
302
362
422
482
542
602
662
722
782
842
902
962
var
a: array [1..4] of char;
s: string;
i: byte := 1;
begin
readln(s);
while (i < length(s)) do
begin
if ((not(s[i] in ['ж', 'ч', 'ш', 'щ'])) or (pos(s[i], s) > i)) then
delete(s, i, 1)
else
i += 1;
end;
writeln(s);
end.
Суть в том, чтобы удалить все нешипящие буквы, а также повторы шипящих, после чего просто вывести строку
(А V В) Λ (А V С)
Для удобства заменим ∧ на · и ∨ на +
(А + В) · (А + С) - умножаем
A·A + A·C + A·B + B·C
A + A·C + A·B + B·C - выносим A за скобку
A · (1 + C + B) + B·C
A · 1 + B·C
A + B·C
Обратная замена
A ∨ B ∧ C
Что эквивалентно высказыванию 1)
///////////////////////////////////////////////////////////
<h3><em>Ответ:Форматирование это типо наведение красоты</em></h3><h3><em>Объяснение:Например изменение цветов столбов и ячеек</em></h3>