1. Слева - глобальная, справа - локальная
2. Левый верхний блок - плюс
Левый нижний - минус
Правый верхний - плюс
Правый нижний - минус
Const nx=100;
var T:text; M:array[1..nx] of string; s,d:string;ch:char;
var i,p,j:integer;
begin
assign(T,'D:\1t\sip.txt');reset(T);
while not eof(T) do begin
Readln(T,s);p:=1;
While p>0 do begin
i:= i +1;p:=pos(' ',s);if p>0 then M[i]:=copy(s,1,p-1)else M[i]:=s; delete(s,1,p);
//writeln(M[i]);
end;end;close(T);
for ch:='А' to 'Я' do begin
for j:=1 to i do begin
if (m[j].Length >0) and (ch = uppercase(copy(m[j],1,1))) then begin //write(ch);
writeln(M[j]); M[j]:=''; end;end;end;<span>end.</span>
{ Free Pascal }
procedure Println(a:array of integer);
var
i:integer;
begin
for i:=0 to Length(a)-1 do Write(a[i],' ');
Writeln
end;
procedure Ex1(var a:array of integer; var nn,np:integer);
var
i:integer;
begin
nn:=0; np:=0;
for i:=0 to Length(a)-1 do
if a[i]<0 then begin a[i]:=0; Inc(nn) end
else
if a[i]>0 then begin a[i]:=1; Inc(np) end
end;
var
a:array of integer;
i,n,kp,kn:integer;
begin
Randomize;
Write('Количество элементов: '); Read(n);
SetLength(a,n);
for i:=0 to n-1 do a[i]:=Random(41)-20;
Println(a);
Ex1(a,kn,kp);
Writeln('Отрицательных ',kn,', положительных ',kp);
Println(a)
end.
Во вложении - пример работы программы.
1.
Папка Windows – служебная папка. В ней находятся практически все файлы системы, которые нужны ей для работы. Исключение составляет только несколько маленьких файлов, которые вынесены в корень диска – они отвечают за процесс загрузки и запуска операционки. Все остальное – в папке. А уж в ней программисты Microsoft наделали вложенных папок, в которых и лежат файлы системы, рассортированные по разным признакам. Из всех этих папок, одна из самых важных и нужных – как раз system32.
2.
system32 — одна из основных директорий, хранящая в себе большую часть системных файлов, без которых Windows не может работать вообще. Большинство ошибок загрузки означенной оси бывает связано именно с повреждением или отсутствием нужных файлов в этой папке.
3.
drivers — папка с драйверами
Boot — загрузочные файлы windows
остальные найдёш сама
драйвера в папке drivers
Если stdio и С/С++, то незачем добавлять не весть чего. Самый простой способ такой:
#include <stdio.h>
using namepsace std;
void main()
{
bool isTrue = false;
int val = 0;
cin >> val;
if(val >= 100 && val <=999)
{
isTrue = true;
}
}
