<HTML>
<HEAD>
<SCRIPT>
function btnClick()
{
s1=""; s2="";
var animals=["кот","рыба","лемур","комодский варан"];
for (i=0; i<animals.length; i++) {
s1 = s1+animals[i]+"\n";
animals[i] = animals[i] + " - прекрасное животное";
s2 = s2+animals[i]+"\n"
};
document.frm.res1.value=s1;
document.frm.res2.value=s2;
}
</SCRIPT>
</HEAD>
<BODY>
<H1>Животные</H1>
<FORM name=frm>
<INPUT type="button" value="Щелкни здесь!"
onClick="btnClick();">
<P>
<TEXTAREA name="res1" cols="50" rows="5">
</TEXTAREA>
<P>
Результат:
<BR>
<TEXTAREA name="res2" cols="50" rows="5">
</TEXTAREA>
</FORM>
</BODY>
</HTML>
<em>// PascalABC.NET 3.2, сборка 1509 от 27.07.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function SumDig(n:integer):integer;
begin
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var a:=ReadSeqInteger('Вводите числа:',ReadInteger('n=')).ToArray;
Write('Палинодромы: ');
a.Select(x->x.ToString).Where(x->x=x.Inverse).Println;
var k:=ReadInteger('Введите простое число');
Write('Числа, сумма цифр которых больше введенного: ');
a.Where(x->SumDig(x)>k).Println
end.
<u>Пример</u>
n= 12
Вводите числа: 9437 2522 3534 1532 4664 6882 7629 5820 2530 9889 6526 6573
Палинодромы: 4664 9889
Введите простое число 19
Числа, сумма цифр которых больше введенного: 9437 4664 6882 7629 9889 6573
<span>Осенью я ехала на дачу с семьёй отдыхать. И тут вижу кто-то рвёт все листья из деревьев , этот человек был в чёрном плаще и в остроконечной шляпе. Я сказала папе давай остановимся тут, не будем ехать на дачу . И папа ответил хорошо, давайте остановимся тут. Мы остановились не далеко от того места где я видела этого человека . И я сказала маме что хочу не много прогуляться и мама сказала иди только не далеко и я пошла в то место где я видела этого человека , не сказав об этом ни кому . Я пошла туда и увидела этого человека. Он куда то шёл и я пошла за ним . Вдруг вижу что этот человек хочет зайти в замок который шёл. Я была очень удивлена этим замком и чуть не ахнула от страха он был весь чёрный и высокий, наверное этажей сто. И на нём везде были нарисованы черепа . Этот человек зашёл в замок и я за ним. Изнутри замок был ещё хуже и страшнее чем снаружи . Там было полно летучих мышей и ходящих скелетов . Хорошо что я успела спрятаться за статуями иначе все. Статуи тоже двигались и шатались . Одно статуе зарычало на меня и я убежала дальше. Вхожу и вижу лабораторию ведьмы. Оказывается что это не человек а ведьма. Я зашла туда и спряталась за шкафом . И вижу тут ведьма кладёт в какой то котел листья которые она рвала. . Она сказала круцыо и вышла . Я подошла увидела книгу заклинаний. Вдруг пришла ведьма и сказала на меня заклинание бомба макси я успела убежать . Я успела прочитать заклинании из книги . Я притворилась перед ведьмой как будто я тоже злая . И она поверила мне . В руках у неё была волшебная палочка . Она положила в сторонку палочку . Потом она открыла шкаф . Там были коробки волшебных палочек . Она попросила меня взять палочку и я взяла одну палочку. Она не выбрала меня, я взяла вторую тоже нет , я взяла третью она выбрала меня . Потом я произнесла заклинание редукто она убежала . Потом она сказала заклинание круцыо и я у бежала . Потом я произнесла заклинание Авадакидавра и ведьма умерла. Вижу замок начал падать и я убежала из замка. Снаружи осень уже стала ещё красивее и лучше чем раньше. Я вернулась к семье и они на меня толпой: где я была? И тогда я сказала сесть им на скамейку и я начала рассказывать им подробно о своих приключениях. </span>