Не знаю сойдет или нет, но как бы эту задачу давно решал.
var a:array [1..20] of integer;
i:integer;
begin
for i:=1 to 20 do
begin
a[i]:=random(30)+1;
if a[i] mod 3 = 0 then
write (a[i],' ');
end;
readln;
<span>end.</span>
Тема - "Поиск в Интернет?"
1. Чатуранга — древнеиндийская игра, считающаяся прародителем шахмат.Бобби Фишер остался непобежденным чемпионом мира, потому что отказался играть матч.
2. Ученый - Михаил Васильевич Ломоносов.
Диалог:
— «Что, сударь, я полагаю, это ученость выглядывает оттуда?»
— «Нисколько», - ответил Ломоносов. - «Это глупость заглядывает туда.»
(Портрет Ломоносова - в прилагаемом файле).
3. По моде того времени у Моны Лизы выбриты брови. Картина находится в Лувре (Париж, Франция). Адрес <span>web-сайта музея </span>ищите сами (здесь ссылки нельзя размещать).
Var a,b:integer; l:boolean;
begin
write('a = ');
readln(a);
l:=true;
while (a<>0) do
begin
b:=a;
write('a = ');
readln(a);
if (a<>0)and(a<=b) then l:=false;
end;
writeln(l);
end.
Пример 1:
a = 3
a = 6
a = 9
a = 4
a = 0
False
Пример 2:
a = 3
a = 6
a = 7
a = 0
True
Нужно задать вопрос любому из них: "Если бы ты отвечал на вопрос:"За какой дверью дракон", что бы ты ответил?" Если спросили честного, он и ответит так, как бы ответил. Если спросили лжеца, то он соврет относительно своего ответа, т.е. в любом случае ответит правдиво. Как бы двойной фильтр, результат которого для лжи и правды одинаков.