Это тест по информатике, повер поинт
Var i,sum:integer; a:array[1..10] of integer;
begin;
for i:=1 to 10 do readln(a[i]); next i;
sum:=0;
for i:=1 to 10 do sum:=sum+a[i]; next i;
writeln('Сумма элементов = ',sum);
end.
var
a: array [1..4] of string;
s: string := 'бвгджзйклмнпрстфхцчшщъь';
i, j: byte;
begin
for i := 1 to 4 do
readln(a[i]);
for i := 1 to 4 do
for j := 1 to length(a[i]) do
delete(s, pos(a[i][j], s), 1);
writeln();
writeln(s);
end.
>котики
>это
>несказанное
>добро
>вгжйлмпфхцчшщъь
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-2,2); a.Println;
Writeln('Положительных: ',a.Where(x->x>0).Count)
end.
<u>Пример</u>
n= 15
1 -1 -1 2 0 2 2 -2 -2 0 -1 -1 -2 1 1
Положительных: 6
Главные удобства панели быстрого запуска в том, что, во-первых, программа запускается при однократном нажатии на значок. То есть, не нужен двойной щелчок, а достаточно нажать на ярлык. Второе, еще более полезное свойство панели быстрого запуска - это то, что она находится поверх остальных окон. Я думаю, что у вас были случаи, когда нужно запустить программу, а чтобы добраться до ее значка на рабочем столе, необходимо закрыть или свернуть несколько других окон.
Можно добавлять значки программ на панель быстрого запуска для ускорения доступа к часто используемым программам или удалять ненужные значки.