1) Дискет;
2) Флеш - карта;
3) USB - флеш - накопитель;
4) CD - RW.
Ответ: 1); 2); 3); 4).
На Паскале:
k:=0;
for i:=1 to n do
if (array[i] < 100) and (array[i]>9) and (array[i] mod 5 = 0) then k:= k+1;
всего точек 60*50= 3000
1 точка равна 1 биту
1*3000= 3000 бит памяти занимает изображение
12 часов после полудня.
То есть 24:00.
<em>// PascalABC.NET 3.2, сборка 1381 от 04.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var age:=ReadInteger('Введите возраст:');
var gender:=ReadInteger('Введите пол (1-М, 2-Ж):');
if gender=1 then
case age of
0..13:Writeln('Мальчик');
14..20:Writeln('Юноша');
21..70:Writeln('Мужчина');
else Writeln('Старец')
end
else
case age of
0..13:Writeln('Девочка');
14..20:Writeln('Девушка');
21..70:Writeln('Женщина');
else Writeln('Старушка')
end
end.