В режиме Обычный (для редактирования) щелкните значок аудио на нужном слайде.
На вкладке " Работа с воспроизведение звука " в группе Параметры звука, выберите В нажмите кнопку последовательность или автоматически в списке Начало.
Оперативная память: а ,г ,д, е.
Внешняя память: б, в, ж.
var a:integer;
begin
readln (a);
if (a div 10 + a mod 10) mod 6 = 0 then writeln('Сумма цифр числа кратна 6')
else writeln ('Сумма цифр числа не кратна 6');
if a div 10 > a mod 10 then writeln('Цифра десятков числа больше цифры единиц числа')
else writeln ('Цифра десятков числа меньше цифры единиц числа');
if a mod 10 = 6 then writeln('Число оканчивается цифрой 6')
else writeln ('Число не оканчивается цифрой 6')
end.
1) 1*1500 = 1500 б = 1,465 кб
2) 0,5 мб = 512 кб = 529 288 б
529 288 : 2 = 262 144 (символов)
3) 100*100*2 = 20 000 бит = 2500 б = 2,44 кб
(про цвета не знаю)
4) 50 б = 400 бит
400 : (10*10) = 4 бита
(про цвета тоже не знаю)
5) 54*36*200 = 388 800 (символов)
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadlnInteger('N=');
var R := new integer[n];
repeat
var a := ReadlnString.ToCharArray;
if a.Length <> N then break;
if a.Where(c -> c = '+').Count = 1 then
Inc(R[a.IndexOf('+')])
until False;
R.Transform(t -> t >= 0.07 * N ? 1 : 0);
R.Numerate.Where(t -> t[1] = 1).Select(t -> t[0]).Println
end.
<h3>Пример</h3>
(окончание ввода - строка длины отличной от N)
N= 5
-+---
--+--
-+---
+----
-+---
--+--
-+---
+----
----+
-+---
1 2 3 5