Ответ:
1. Жёсткий диск (130Гб-2Тб)
2. Флеш-память (512Мб - 64Гб)
3. CD, DVD (700Мб, 5Гб)
Паскаль
Program time ;
Var t : Integer;
Begin
WriteLn ('Введите время');
ReadLn (t) ;
If (t>=0) and (t<6) then
WriteLn ('Ночь') ;
If (t>=6) and (t<12) then
WriteLn ('Утро') ;
If (t>=12) and (t<18) then
WriteLn ('День') ;
If (t>=18) and (t<24) then
WriteLn ('Вечер') ;
End.
Лайк кста
Ответ: k будет равно 5.
По условию, если а>0, то k присвоить значение 1, иначе присвоить значение 0, а затем прибавить 5. Перед условием указано, что а=-25, т.е. <0, значит идём по условию "иначе".