1:
program prog;
var i,n,s,a:integer;
var chk:boolean;
begin
chk:=False;
s:=1;
write('Введите количество вводимых чисел: '); readln(n);
for i:=1 to n do
begin
write('Введите ', i, '-е число: '); readln(a);
if i mod 2 = 0 then
begin
s:=s*a;
chk:=True;
end;
end;
if chk = False then s:=0;
write('Произведение чётных членов введённой последовательности равно ', s);
end.
2:
program fib;
var
F1,F2,n,i :Integer;
begin
write('Введите количество чисел Фибоначчи: '); readln(n);
F1:=1;
F2:=1;
For i:=1 to n do
begin
if i>2 then
begin
F1:=F1+F2;
F2:=F1-F2;
end;
write(F1, ' ');
end;
end.
Положительные качества данного гаджета:
Устройство беспроводное, что позволяет подключать его к телефону или компьютеру без специальных кабелей.
Естественным и самым используемым качеством является полная совместимость очков со всеми современными игровыми приставками, что собственно и поднимает популярность виртуальных очков.
Кроме игры такие очки подразумевают просмотр фильмов, новые работы, открываются новые возможности для моделирования и рисования.
Чаще всего внешний вид гаджета выглядит очень интересно и привлекательно.
Отличное погружение в цифровую реальность дополняется качественным звуком и датчиками которые синхронизируют физические движения с виртуальными.
Отрицательные качества данного гаджета:
Стоит такой прибор довольно внушительную сумму, к тому же чем лучше его качество и дизайн, тем выше его цена.
Если установлены не все датчики, значительно ухудшается синхронизация, что сказывается на комфорте пользователя. Как правило, это возможно в более дешевых моделях.
Для полноценной хорошей работы подключать устройство нужно только к мощным компьютерам или телефонам.
Правильно настроить гаджет при необходимости сможет далеко не каждый.
Иногда маленькое расширение мешает получить качественное изображение.
a,b,z,x,y:real;
begin
write('Введите координаты точки (x,y): ');
readln(x,y);
write('Введите координаты отрезка (Xn, Xk, Yn): ');
readln(a,b,z);
if (y=z) and (x>=a) and (x<=b) then
writeln('Да, принадлежит')
else writeln('Нет, не принадлежит')
end.