Re: Забавный анекдот мне сегодня рассказали :)
Мора пишет:В Университете проводили лингвистическую олимпиаду для школьников.
Ближе к вечеру все дела сделаны: олимпиаду провели, все работы проверили… Члены жюри сидят, делятся впечатлениями.
А первое задание задание было - перевести на все известные иностранные языки фразу "Если б я был султан, я б имел трех жен.".
Ну, естественно, наиболее часто встречаются варианты на английском, немецком и французском языках. Иногда попадаются на итальянском и испанском. Есть пара вариантов на украинском и на японском.
И есть один на ПАСКАЛЕ.
Выглядит так:
BEGIN
if (I=Sultan) then
begin
Get(First_Wife);
Get(Second_Wife);
Get(Third_Wife);
end;
END.
![]()
![]()
Там бы ещё подпрограмму вывода на печать как он счастлив