1. В одной из кодировок каждый символ кодируется 8 битами. Вова написал текст (в нём нет
лишних пробелов):
«Фиалка, лютик, роза, гвоздика, мак, хризантема, гладиолус – это цветы».
Затем он добавил в список название ещё одного растения. Заодно он добавил необходимые
запятые и пробелы. При этом размер нового предложения в данной кодировке оказался на 6
байт больше, чем размер исходного предложения. Напишите в ответе длину добавленного
названия растения в символах.

1) долгая бумага 2) потверждает файл или папку

1)над любыми вписаными в ячейки

2) все стандартные (сравнение в том числе, только выполняется через если) в стандартном порядке. отрицание, умножить/поделить,+/-, если не используются скобки

3)скопировать ячейкуили протянуть взяв за квадратик или непосредственно скопировать строку формул одной и вставить в строку формул другой. результаты при этом могут быть разные

4)легчевсего написать ручками и подсказка сама вылезет. еще там есть кнопочка fx

5)использовать функцию округления, использовать округлкнный формат вывода. по своей сути методы разные потому выбор зависит от

6)абсолютные и относительные.относительные это когда "от значения две клетнки левее отнять значение ячейки три клетки правее".

7)fx или

8)перед именем ячейки пишется имя листа через точку, так же как с обьектами

var

a: array[1..100] of integer;

i,s,r: integer;  

begin

for i: =1 to 100 do read(a[i]);

for i: =1 to 100 do

begin

if a[i]< 0 then r: =r+a[i] else s: =s+a[i];

end;

writeln('сумма всех положительных чисел= ',s);

writeln('сумма всех отрицательных чисел= ',r);

readln

end.

посчитает максимум 100 чисел. 

№1

program z1;

var n: integer;

begin

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

readln(n);

if (n mod 2 = 0) and (n div 100 < 1) and (n > 9) then write('данное число является четным двузначным') else if  (n div 100 < 1) and (n > 9) then write ('данное число не четное двузначное');

end.

№2

program z2;

var a, b, c, k: integer;

begin

k: =0;

writeln ('введите числа a, b и c: ');

readln(a,b,c);

if a< 0 then k: =k+1;

if b< 0 then k: =k+1;

if c< 0 then k: =k+1;

write('количество отрицательных чисел: ',k)

end.