===== PascalABC.NET =====
begin
'мама мыла раму'.Println.Replace('а','о').Println
end.
Program llllll;
var A: string;
k : integer;
begin
readln(A);
k := length(A);
writeln(A[1], A[3], A[k]);
end.
Что происходит в программе? Мы берем А с индексами 3, 1 а также с индексом k, где k-- длина всего слова, которую мы определяем с помощью функции length.
А,г,б,в)))))))))))))))))))
var
a:array[1..100] of integer;
i, n:integer;
begin
randomize;
write('Введите количество элементов '); readln(n);
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(21) - 10;
write(a[i], ' ');
end;
writeln;
writeln('Вывод массива в соответствии с условием: ');
for i := 1 to n do
begin
if i mod 4 = 0 then
write('нет ')
else
if i mod 2 = 0 then
write('да ')
else
write(a[i], ' ');
end;
end.
Каждый пиксель = 3 байта
Количество пикселей: 640 * 480
Изображение занимает: 640 * 480 * 3 (байт)
Скорость передачи: 28800 бит/с = 3600 байт/с
Итого, времени нужно: 640 * 480 * 3 / 3600 = 256 (с)