Сколько секунд потребуется модему , сообщения со скоростью 19 200 бит/с, чтобы передать цветное растровое изображение размером 1280*800 пикселей при условии, что цвет каждого пикселя кодируется 24 битами ?
Var p, q: longint; n, i, j, c: integer; begin // 1 write('n=');readln(n); for i := 1 to n do begin q := 1; for j := 1 to i do q := q * i; p := p + q; end; writeln ('Значение = ', p);
// 2 write('Число годовых оценок=');readln(n); p:=0; for i := 1 to n do begin write('оценка: '); readln(c); if c = 5 then p := p + 1 else if c = 2 then p := - 1; end; writeln(p > 0);
// 3 n := 20; p := MaxInt; for i := 1 to n do begin write('Введите высоту здания ', i, ': '); readln(c); if c < p then p := c; end; writeln('Минимальная высота: ', p);
//4 n := 20; p := -1; for i := 1 to n do begin write('Введите высоту здания ', i, ': '); readln(c); if c > p then p := c; end; writeln('Максимальное значение высоты: ', p); end.
// с циклом while var s,i:integer; begin i:=100; while i<=999 do begin if i mod 77 = 0 then s:=s+i; i:=i+1; end; writeln('Сумма трехзначных кратных 77: ',s); end.
1024000*24=24576000 бит
24576000:19200=1280 секунд