Uses crt; (Подключение внешних файлов)
Var
ves: real;
m: real;
Begin
clrscr;
write('ves=');
read(ves);
m: = ves * 0.65;
writeln ('Масса молекул кислорода', m:2:1, 'кг.');
readkey;
End.
Дано:
1024 пикселей ширина
768 пикселей высота картинки
16 бит вес одного пикселя
Решение
(1024 * 768) пикс * 16 бит пикс * 75 раз * 1 сек = 943718400 бит объём
Var
i,s:integer;
mas : array [1..20] of integer;
begin
randomize ;
for i:=1 to 20 do
mas[i]:=random (100);
s:=0;
for i:=1 to 20 do
if mas[i] mod 5 = 0 then
s:=s+mas[i];
writeln('sum',s);
end.
27)а.г
28) a,г
27) Можно разместить с указанием источника, чтобы не получить АП
Можно скачать картинку, т.к она общественная и может увидеть любой
28) можно, потому что. А.С Пушкин умер, и все его произведения отданы народу и все могут уже их знать.
Описания квадрата тоже много где можно увидеть
V = 256 000 бит/с
t = 64 с
I =256 000 * 64 = 16384000 бит = 2000 Кбайт
Ответ: 2000 Кбайт