Файл - удалить, переместить, переименовать
Папка - удалить, переместить, переименовать
Не знаю, что тут еще можно добавить
800*600=480000точек
точка 1*1 весит 16 бит
480000*16=7680000(бит)
7680000:8=960000(байт)
960000:1024=937.5(кб)
var
z,a,i:integer;
begin
writeln('vvedite chislo');
readln(z);
writeln('vvedite zifru');
readln(a);
for i:=1 to length(IntToStr(z)) do begin
if z mod 10 = a then
writeln('est');
z:=z div 10;
end;
end.
Дано:
V = 56000 бит/сек
t = 15 cек
Найти:
I - ?
Решение:
I = t * V
I = 15 * 56000 = 840000 бит - передать можно за 15 сек при такой скорости
840000 бит = 840000/8 = 105000 байт /1024 = 102,54 Кбайт информации
Ответ: 102,54 Кбайт информации можно передать за 15 сек при такой скорости.
Var i:integer;
begin
for i:=1 to 30 do
if i mod 2=0 then write(i,' ');
writeln;
for i:=10 to 20 do
if i mod 2=1 then write(i,' ');
end.