Все виды информации, представленные в двоичном виде, т.е. в виде 0 1
var a,b,c: integer;
begin
a:=2;
b:=6;
c:=a+b;
writeln(c);
end.
Значение "c" будет равняться 8.
Progress - название файла(часто его называют именем)
dog - расширение файла
1)
var a,q:integer;
begin
a:=1;
while a<>0 do begin
read(a);
if a<0 then inc(q);
end;
writeln('Количество отрицательный чисел: ',q);
end.
2)
var d,m,g,h,min:integer;
begin
d:=random(31)+1;
m:=random(12)+1;
g:=random(11)+2000;
h:=random(24);
min:=random(60);
writeln(<span>d,'/',m,'/',g,' ',h,':',min);
end.
3)
var a:array[1..10] of integer;n,i:integer;
begin
for i:=1 to 10 do
a[i]:=random(6)+2;
read(n);
</span>for i:=1 to 10 do
writeln(a[i]);<span>
for i:=9 downto n do
a[i+1]:=a[i];
a[n]:=0;
for i:=1 to 10 do
writeln(a[i]);
end;</span>