Var
a, b, n: integer;
sr: real;
begin
sr := 0;
n := 0;
read(a, b);
if(a > b) then a := b;
while a > 0 do
begin
if((a mod 10) mod 2 = 0) then begin
sr := sr + a mod 10;
n := n + 1;
end;
a := a div 10;
end;
write(sr / n);
end.
<span>Для ASCII, windows-1251, koi-8, dos-866 - один символ = 1 байт</span>
"Каждая вторая" означает, что с дистанции сошли машины с четными номерами.
var
i:integer;
begin
Write('С дистанции сошли машины с номерами ');
i:=2;
repeat
Write(i,' ');
i:=i+2
until i>17
end.
Результат
С дистанции сошли машины с номерами 2 4 6 8 10 12 14 16
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
N, сч, сумма: ЦЕЛ;
УКАЗ
Вывод.Цепь("Введите N: ");
N := Приём.Число();
СОЗДАТЬ(массив, N);
Вывод.Цепь(".^Введите элементы массива:^");
сумма := 0;
ОТ сч := 0 ДО N - 1 ВЫП
массив[сч] := Приём.Число();
Вывод.Цепь(" ");
ЕСЛИ массив[сч] > сч ТО
УВЕЛИЧИТЬ(сумма, массив[сч])
КОН
КОН;
Вывод.ЧЦел("^Сумма особых элементов: %d.", сумма, 0, 0, 0)
КОН Задание.
Function chooseClassByWindowWidth() {
let el = ...; // элемент, на который надо навешивать класс, например, document.querySelector('img.resizeable')
let width = window.innerWidth, height = window.innerHeight; // innerWidth, innerHeight измеряют внутренние размеры, если нужны внешние, с учетом тулбаров, строк заголовка и т.п. – нужно inner поменять на outer
if (width <= 1024 && height <= 768) {
el.classList.add('A');
el.classList.remove('B');
} else {
el.classList.add('B');
el.classList.remove('A');
}
}
Чтобы функция выполнялась при изменении размеров, нужно добавить её как обработчик события resize:
window.onresize = chooseClassByWindowWidth;
или
window.addEventListener("resize", chooseClassByWindowWidth);