Program ghg;
var a,b,s:integer;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
if (a<=2*109) and (b<=2*109) then
s:=a+b;
writeln('s=',s);
end.
1 байт=8 бит 1Кбайт=1024байт 1Мбайт=1024Кбайт
=1024Мбайт 1Тбайт=1024Гбайт
Переходник
Он переводит информацию с одного компьютера на другой!
Var a,b: array[0..19] of Integer;
i: Integer;
begin
for i:=0 to 19 do
begin
a[i]:=random(5)+1;
b[i]:=random(5)+1;
end;
for i:=0 to 19 do
begin
if a[i]=b[i] then writeln('Номер: ',i,', значение: ',a[i]);
end;
end.
Системный блок:
-корпус
-блок питания
-материнская плата
-процессор
-видеокарта
-оперативка
-жесткий диск
-дисководы
Монитор
Мышка
Клавиатура