<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var k:=ReadInteger('k=');
var i:=a.FindIndex(x->x=k);
if i=-1 then Writeln('нет')
else Writeln('да')
end.
<u>Примеры</u>
n= 15
43 -58 43 62 60 -32 60 50 73 99 -75 98 6 -42 79
k= 73
да
n= 8
-86 30 47 -75 85 32 -70 83
k= 10
нет
1) 0
2) 1
3) сигнал
4) одного байта
мне кажется, что так
<span>Отметь общие свойства, которыми обладают текстовая и графическая модель:
1) помогают хранить информацию об объекте (изображение и описание объекта хранят информацию: изображения – о внешнем виде, строении, описание – какую угодно)
2) имеют общий цвет и размер (у текста может быть какой угодно цвет и размер)
3) обладают свойством наглядности (текст не обладает)
4) используются для передачи информации об объекте (если передать изображение или описание объекта, получатель получит информацию об объекте)
Ответ: 1), 4)
</span>
Пусть даны сторона ромба a и радиус вписанной окружности r. Тогда площадь ромба равна 2ar.
Необходимо получить значения a, r; вычислить значение площади и вывести его. Блок-схема приведена во вложении.
//Pascal
var
factorial: longint;
n, i: byte;
begin
write('n = '); readln(n);
factorial := 1;
for i:=2 to n do
factorial := factorial * i;
writeln('n! = ', factorial);
end.