Var
a: array [1..4] of char;
i: integer;
begin
a[1] := 'S';
a[2] := 'I';
a[3] := 'M';
a[4] := 'A';
for i := 1 to 4 do
write(ord(a[i]) - 64, ' ');
end.
а самостоятельно подобрать число никак?
В)РowerPoint можно посмотреть на компьютере.
Приставка кило - в информатике значит 1024
переводим 192Кбит/с в биты, получаем 196608бит/с
196608бит/с в байты (делим на 8) поучаем 24576байт/с
переводим 3600 Кбайт в байты, получаем 3686400байт
3686400байт делим на 24576байт/с получаем 150секунд. Всё понятно?
Uses Crt;
const n = 100;
var i: integer;
begin
ClrScr;
for i:=1 to n do
if (i mod 2<>0) and (i mod 3 =0) then Write (i:4);
ReadLn;
<span>end.</span>