Слова и буквы Ограничение времени 1 секунда

Ограничение памяти 64Mb

Ввод стандартный ввод или input. txt

Вывод стандартный вывод или output. txt

Напишите программу, которая считывает слова, слово «стоп» — сигнал остановки (оно не должно принимать участие в анализе). Из введённых слов нужно выбрать самое длинное и самое короткое (гарантируется, что все они имеют разную длину) и проверить, есть ли все буквы короткого слова в длинном, при этом количество повторений букв не учитывается. Вывести «ДА» или «НЕТ» в зависимост

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.

если я правильно понял и функция sin в квадрате и cos в квадрате то

по идее она будет равна 1 в любом случае

var

x,y: real;

begin

x: =-3.14;

while x< =3.14 do 

begin

y: =sin(x)*sin(x)+cos(x)*cos(x);

writeln(x: 8: 2,y: 8: 2);

x: =x+0.2;

end;

end.

вот результат выполнения

-3.14 1.00 -2.94 1.00 -2.74 1.00 -2.54 1.00 -2.34 1.00 -2.14 1.00 -1.94 1.00 -1.74 1.00 -1.54 1.00 -1.34 1.00 -1.14 1.00 -0.94 1.00 -0.74 1.00 -0.54 1.00 -0.34 1.00 -0.14 1.00 0.06 1.00 0.26 1.00 0.46 1.00 0.66 1.00 0.86 1.00 1.06 1.00 1.26 1.00 1.46 1.00 1.66 1.00 1.86 1.00 2.06 1.00 2.26 1.00 2.46 1.00 2.66 1.00 2.86 1.00 3.06 1.00

если брать 2x тогда

var

x,y: real;

begin

x: =-3.14;

while x< =3.14 do 

begin

y: =sin(2*x)+cos(2*x);

writeln(x: 8: 2,y: 8: 2);

x: =x+0.2;

end;

end.

и результат

-3.14 1.00 -2.94 1.31 -2.74 1.41 -2.54 1.29 -2.34 0.97 -2.14 0.49 -1.94 -0.07 -1.74 -0.61 -1.54 -1.06 -1.34 -1.34 -1.14 -1.41 -0.94 -1.26 -0.74 -0.91 -0.54 -0.41 -0.34 0.15 -0.14 0.68 0.06 1.11 0.26 1.36 0.46 1.40 0.66 1.22 0.86 0.84 1.06 0.33 1.26 -0.23 1.46 -0.76 1.66 -1.16 1.86 -1.38 2.06 -1.39 2.26 -1.17 2.46 -0.77 2.66 -0.25 2.86 0.31 3.06 0.82

в феврале 1946 года был создан первый компьютер.

только вчера это

если п и ж аборигены, то она должны всегда говорить правду.значит ж(абориген)говорит правду, что он абориген и п передаёт правду. он абориген.

если п иж пришельцы, то они должны врать.значит ж говорит (неправду) я абориген, и п передаёт он пришелец. контексту.

если п-пришелец,а ж-абориген, то п должен врать, а ж говорить правду. значит жсказал правду " я абориген", а проводник передал он пришелец. несоответсвует контексту.

если п- абориген, а ж пришелец, то п всегда говорит правду, а ж неправду. значит  сказал" неправду "я абориген" а п передал он абориген.

в обоих случаях проводник абориген.

п- проводник

ж - житель