Задание 1:
Var s,i,n : integer;
z: array [1..100] of integer;
Beginfor
i:= 1 to 8 do
Read (z[i]);
end.
Задание 2:
Var s,i,n : integer;
z: array [1..100] of integer;
BeginRead(n);
for i:= 1 to n do
Read (z[i]);
for i:= 1 to n do
begin
if z[i]<0 then s:= sqr(z[i]);
Write(s);
end;
end.
Задание 3:
Var s,i,n : integer;
z: array [1..100] of integer;
Begin
Read(n);
for i:= 1 to n do
Read (z[i]);
s:=0;
for i:= 1 to n do
if z[i]>10 then s:= s+1;
Write('koll=', s);
end.
Var a:integer;
begin
readln(a);
while(a<>0) do begin
write(a mod 10);
a:=a div 10;
end;
<span>end.</span>
Диск
Камень
Кассета
Книжка
Дискета
Бумага
Флеш
Флеш-память — память типа Flash — разновидность полупроводниковой технологии электрически перепрограммируемой памяти (EEPROM). В народе флеш-памятью называют широкий класс твердотельных устройств хранения информации. Флеш-память (в отличие от винчестеров) используют в накопителях смартфонов, особого класса ноутбуков (по причине дороговизны этого типа памяти) и кое-где еще. Особенность этого типа памяти, помимо дороговизны и быстродействия — конечное число циклов перезаписи. Также практически невозможно найти накопители с флеш-памятью большого объема.Компакт-диск (англ. <span>Compact Disc, CD</span>) — оптический носитель информации в виде пластикового диска с отверстием в центре, процесс записи и считывания информации которого осуществляется при помощи лазера. Дальнейшим развитием компакт-дисков стали DVD и Blu-ray, прообразом была граммофонная пластинка.
Изначально компакт-диск был создан для хранения аудиозаписей в цифровом виде (известен как CD-Audio), однако в дальнейшем стал широко использоваться как носитель для хранения любых данных (файлов) в двоичном виде (т.н. CD-ROM — англ. Compact Disc Read Only Memory, компакт-диск с возможностью только чтения, или КД-ПЗУ — «Компакт-диск, постоянное запоминающее устройство»). В дальнейшем появились компакт-диски с возможностью не только чтения однократно занесённой на них информации, но и записи (CD-R — англ. Compact Disc-Recordable, записываемый компакт-диск) и перезаписи (CD-RW — англ. Compact Disc-ReWritable, перезаписываемый компакт-диск).
Function Dec2Bin(ByVal x As Integer) As String
Dim t As Integer, r As String
r = "": t = x
While t >= 2
r = Trim(Str(t Mod 2)) + r
t = t \ 2
Wend
Dec2Bin = Trim(Str(t)) + r
End Function
Sub test()
MsgBox Dec2Bin(35)
End Sub