Завдання Запиши послідовність номерів карток, які задають порядок:Варіант 1а) завершення роботи за комп'ютеромб) запуску програми на виконання
Варіант 2а) підготовки комп’ютера до роботиб) коректного завершення роботи з програмою
<span>Завдання 3. Дії з о б’єктам и Робочого столуУ комп’ютерному класі за комп’ютерами з різними номерами сидять Світлана,Марина,Роман та Сергій. Відомо, що:- Світлана виконала затримку над деяким об’єктом:- Марина один раз клацнула лівою кнопкою миші;- Роман не встиг нічого зробити;- Сергій виконав дві дії з мишею.<span>
</span></span>
<em>Отличная задачка, в одну строку.</em>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqInteger(ReadInteger('n=')).Where(k->k<0).Sum)
end.
<u>Пример</u>
n= 8
34 -12 0 16 -5 -7 2 -9
S=-33
<em>Пояснения</em>
ReadInteger('n=') выдает подсказ 'n=' и организует ввод целого числа, мы обозначим его условно n.
ReadSeqInteger(n) обеспечивает получение с клавиатуры последовательности n целых чисел.
Эта последовательность проходит через фильтр .While(k->k<0), который пропускает только отрицательные числа.
Все, что прошло через фильтр, будет просуммировано при помощи .Sum
И осталось только вывести результат при помощи Writeln('S=',тут_сумма)
Вот и все.
как понимаю булева алгебра
x*y*(x+y) = x*(y*x+y*y) = x*(y*x+y) = x*y*x+x*y = y*x+x*y = x*y
1) 400.16( немного ниже)=4*16 2(степень 2)=4*256=1024байт= 1 кбайт
2)<span>FFh слов = 255 слов 1/4 кбайта - 256 байт 1 слово=1 байт</span>
Var a:string;
i,k:integer;
b:char;
begin
writeln('Введите строку: ');
readln(a);
k:=length(a);
for i:=1 to round(k/2) do
begin
b:=a[i];
a[i]:=a[k-i+1];
a[k-i+1]:=b;
end;
writeln;
writeln('Итоговая строка: ');
writeln(a:7);
end.<span>
</span>
