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.
<!DOCTYPE HTML>
<html lang="ru">
<head>
<title>таблица 7х10</title>
<meta charset="utf-8">
</head>
<body>
<style>
table {border-collapse: collapse;}
td {border: 1px solid black; padding: 3px;}
</style>
<table>
<tr>
<td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td>
</tr>
<tr>
<td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td>
</tr>
<tr>
<td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td>
</tr>
<tr>
<td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td>
</tr>
<tr>
<td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td>
</tr>
<tr>
<td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td>
</tr>
<tr>
<td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td>
</tr>
<tr>
<td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td>
</tr>
<tr>
<td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td>
</tr>
<tr>
<td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td><td>***</td>
</tr>
</table>
</body>
</html>
1) Конец
2) Это термин в Паскале ( <span>readln(x) читает вводимую с клавиатуры строку в переменную х и переносит курсор на следующую строку )</span>
3) Отличие процедуры Writeln от оператора Write заключается в том, что Writelnпосле вывода сообщения на экран переводит курсор на другую строку.
128*128*16 = 262144 бит занимает 1 картинка = 32768 байт = 32кб
10*12 = 120 картинок во всем видеоролике
32*120 = 3840 кб весит видеоролик = 3,75 мб
цифры конечно поражают, но напоминаем что тут нет никакого сжатия и кодеки не использовались