К системным папкам относится и папка Рабочий стол, которая отображается как корневая в дереве Проводника. Эта папка содержит смесь различных объектов. В ней могут присутствовать как виртуальные объекты, так и обычные файлы и папки. Если на компьютере у каждого пользователя в Windows имеется своя учетная запись, то файлы, которые он помещает на рабочий стол видны лишь внутри этой учетной записи. Они хранятся на жестком внутри папки профиля в папке содержания рабочего стола. Однако, помимо личного рабочего стола пользователя, существует общий рабочий стол, объекты которого отображаются во всех учетных записях. Например, при установке программ, ярлыки на рабочем столе появляются в каждой учетной записи. Они тоже хранятся на диске, но размещены в так называемом общем профиле. Таким образом, системная папка Рабочий стол отображает не виртуальные объекты, такие как Корзина, Мой компьютер, но и содержание сразу двух обычных папок, которые расположены по разным путям на диске.
Program test;
uses graphabc;
var i,x:integer;
begin write('Сколько досок для забора тебе нужно? = ');
readln(x);
for i:=1 to x do begin
line(50+i*50,400,50+i*50,200);
line(50+i*50,200,75+i*50,190);
line(75+i*50,190,100+i*50,200);
line(100+i*50,200,100+i*50,400);
line(100+i*50,400,50+i*50,400);
end;
end.
1
var i, minus, plus, zero: integer;
t: array [1..15] of integer;
begin
minus := 0;
plus := 0;
zero := 0;
for i := 1 to 15 do
begin
readln(t[i]);
if t[i] > 0 then plus := plus + 1;
else if t[i] < 0 then minus := minus + 1;
else zero := zero + 1;
end;
end.
2
var stroke: string;
begin
readln(stroke);
if length(stroke) mod 2 = 0 then writeln('Четно');
else writeln('Нечетно');
end.
3 (Сейчас далеко от компа, когда буду рядом отредачу)
4
var max, min, i: integer;
A: array[1..20] of integer;
begin
min := a[1];
max := a[1];
for i := 2 to 15 do
begin
if a[i] > max then max := a[i];
if a[i] < min then min := a[i];
end;
end.
Решение в приложенном файле PDF (не со всех телефонах его видно).
<u>Только для версии PascalABC.Net 3.2</u>
Коротко и эффектно!
begin
Writeln('Количество слов равно ',ReadlnString('Вводите:').ToWords.Count)
end.
Пример
Вводите: Карл у Клары украл кораллы.
Количество слов равно 5
<u>VBA MS Excel 2003</u>
Sub aaa()
a = Split(InputBox("Вводите строку"), " ")
k = 0
For Each e In a
If e <> "" Then k = k + 1
Next
MsgBox "Количество слов равно" + Str(k)
End Sub
