Для якої операційної системи наразі розроблено найбільша кількість шкілливого ПЗ

в одном байте восемь бит. следовательно 100/8=12.5   ответ 12.5

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

var

s,n,i: integer;

begin

write('введите количество чисел');

readln(n);

s: =0;

for i: =1 to n do

s: =s+i*3;

writeln(s);

end.