54:6=9
54:2=27 (52:27=2)
54:9=6 (54:6=9)
54-37=17 ( я вот даже и не знаю, на что 4 делить, чтоб 17 вышло)
У нас есть изображение 640х480 пикселей.
А значит это 640 * 480 = 307200 пикселей.
Каждый пиксель занимает 3 байта.
Если 307200 пикселей и 3 байта весит каждый пиксель значит изображение весит 307200 * 3 = 921600 байт.
Канал связи передает в среднем 28800 бит/с, так как 1 байт = 8 бит, значит канал передает 28800 / 8 = 3600 байт/с
Изображение весит 921600 байт, скорость канала 3600 байт/с, значит нам потребуется 921600 / 3600 = 256 секунд для передачи изображения.
var
N: array [1..15] of 1..15; {Массив, в который записываются номера положительных элементов массива х}
x: array [1..15] of real; //Массив х
i: integer; //Переменная для цикла
Number: integer; //Сколько номеров было записано
begin
Number:= 0; //Обнуляем счетчик номеров
for i:= 1 to 15 do //Вводим с клавиатуры массив х
begin
writeln('Введите ', i, ' элемент массива х');
readln(x[i]);
if x[i] > 0 then {Если введенный элемент массива х положительный, то прибавляем к счетчику добавленных номеров 1 и присваиваем соответствующему элементу массива N номер элемента}
begin
Number:= Number + 1;
N[Number]:= i;
end;
end;
write('Номера положительных элементов массива х: ');
for i:= 1 to Number do write(n[i], ' '); //Выводим записанные номера элементов
writeln; {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}
end.
С помощью оператора while:
var
i,sum:integer;
begin
sum:=0;
i:=1;
while i<=10 do
begin
sum:=sum+i;
i:=i+2;
end;
writeln ('Summa: ',sum);
end.
Пойдет?
uses crt;
var
i: byte;
s: word;
begin
i := 1;
s := 0;
while i <= 10 do
begin
if i mod 2 <> 0 then
s := s + i;
inc(i);
end;
writeln('Сумма нечётных чисел от 1 до 10: ', s);
readln;
end.
