Написать программу, которая позволяет ввести 12 значений. далее программа выводит на экран два числа. в одно число нужно записать сумму чисел меньше 100, а в другое сумму чисел меньше 100. то есть при вводе программа должна определить какие значения ты вводишь и разбивает значения на 2 группы, меньше 100 и больше 100, а далее суммирует числа в каждой группе и выводит ответ.

program raf105;

var

 num,sum1,sum2: integer;

begin

 writeln('Вводите 12 чисел по очереди');

 for var i:=1 to 12 do

 begin

   readln(num);

   if num < 100 then sum1:= sum1 + num;

   if num > 100 then sum2:= sum2 + num;

 end;

 writeln('Сумма чисел меньше 100: ',sum1);

 writeln('Сумма чисел больше 100: ',sum2);

end.

PascalABC

Задания жесткие, кину одну функцию, помню давненько её находил для перевода из 16 в 10, могут быть ошибки не проверял

 

function HEX2DEC(HEX: string): LONGINT;

function Digt(Ch: CHAR): BYTE;

const
HEXDigts: string[16] = '0123456789ABCDEF';

var
I: BYTE;
N: BYTE;

begin
N := 0;
for I := 1 to Length(HEXDigts) do
if Ch = HEXDigts[I] then
N := I - 1;
Digt := N;
end;

const
HEXSet: set of CHAR = ['0'..'9', 'A'..'F'];

var
J: LONGINT;
Error: BOOLEAN;
DEC: LONGINT;

begin
DEC := 0;
Error := False;
for J := 1 to Length(HEX) do
begin
if not (UpCase(HEX[J]) in HEXSet) then
Error := True;
DEC := DEC + Digt(UpCase(HEX[J])) shl ((Length(HEX) - J) * 4);
{ 16^N = 2^(N * 4) }
{ N SHL ((Length(HEX) - J) * 4) = N * 16^(Length(HEX) - J) }
end;
if Error then
HEX2DEC := 0
else
HEX2DEC := DEC;
end;

1. Персональная (видеозвонок),

Симметричная групповая,

Селекторное совещание,

Веб-конференция и Вебинар

2. Доступность: минимальные первоначальные вложения (ПК+вебкамера+микрофон / смартфон / планшет)

Возможность проведения видеоконференций с несколькими участниками сразу: достаточно чтобы у каждого был свой девайс с камерой

3. Видеотелефония - это возможность видеть друг друга во время телефонного общения. Видеосвязь позволяет более продуктивно общаться со своими клиентами, сотрудниками и партнерами (т.к. посредством голоса передается лишь 20% информации) и экономить время и деньги на бизнес-поездках.