найдем размер изображения:
1) всего 16 цветов., значит на 1 пиксель приходится 4 бита памяти
2)размер изображения=800*600*4=1 920 000 бита
теперь найдем <em>Сколько секунд потребуется модему</em><span>, </span><em>передающему сообщения со скоростью 32000</em><span> бит/с это изображение:</span>
<span>1) 1 920 000 бита / <em>32000</em> бит/с = 60 с</span>
<span>Ответ: 60с</span>
var
i, si, N, ss: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (N);
s := IntToStr (N);
ss := 0;
for i := 1 to Length (s) do begin
si := StrToInt (s [i]);
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
// второй вариант решения
var
si, N, ss: Integer;
begin
Write ('Введите N: ');
ReadLn (N);
ss := 0;
while N > 0 do begin
si := N mod 10;
N := N div 10;
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
Program nau;
var s,m,t: real;
begin
writeln ('введите расстояние и среднюю скорость движения');
readln (s,m);
t:=(s/m)*60;
writeln('время, потраченное на дорогу, в минутах = ',t);
<span>end.</span>