<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger;
if n.IsEven then n.ToString.ToCharArray.PrintLines
end.
<h2>518</h2><h2>5</h2><h2>1</h2><h2>8</h2>
Var
m,n,i: byte;
begin
writeln ('M=');
writeln ('N=');
readln(m);
readln(n);
for i:=n to m do
if i mod 2=0 then write (i,' ');
readln;
end.
1(2)
2(2)
3(3)
4(т 1,3,5,8)
(Г 2,4,6,7)
(П 9,10,11,12)5 (ф 3,6)
(А 1,2,4,5,7,8)
<!DOCTYPE>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Таблица</title>
</head>
<body>
<table border="1">
<tr><th rowspan="2">ФИ</th><th colspan="2">Предмет</th><th rowspan="6">Примечание</th></tr>
<tr><th>математика</th><th>информатика</th><tr>
<tr><td>Петров</td><td>4</td><td>4</td></tr>
<tr><td>Сидоров</td><td>5</td><td>4</td></tr>
<tr><td>Бубликов</td><td>3</td><td>3</td></tr>
</table>
</body>
</html>
В столбец оплаты ставь формулу с условием =ЕСЛИ(G4<500;5*G4;ЕСЛИ(G4<=999;G4*10;ЕСЛИ(G4>=1000;G4*15))). G4 меняй на соответствующий у тебя столбец и строку. Количество клиентов более 1000квт счетесли, диапазон и условие. =СЧЁТЕСЛИ(G4:G13;">=1000"). На скрине можно посмотреть куда и что вставлять.