Var a,s:integer;
begin
writeln ('Введите целое число');
a:=1;
while a<>0 do
begin
readln (a);
s:=a+s;
end;
writeln ('Сумма всех введенных чисел = ', s);
<span>end.</span>
1 Мбайт = 1024 Кбайт = 1024*1024 байт = 1024*1024*8 бит
Время передачи файла = 1024*1024*8 / 1024 = 1024*8 с = 8192 с
Логическая схема будет выглядеть так:
Ответ:
Объяснение:
Так как 256 цветов то 8 бит на пиксель. Всего 800 пикселей следовательно 800*8=1600 бит. 1 байт =8 битам следовательно размер рисунка равен 1600/8=800 байт
Ответ False
Логический оператор and обозначает то,что все условия должны быть выполнены
А меньше 4 ,но А не равен 4-1
Условие не выполняется