Решение в прикрепленном файле, воспроизвел таблицу только по последним трем столбцам.
формула для вычисления налога: =ЕСЛИ(A2<=1700;A2*0,12;A2*0,2)
формула для вычисления на руки: =A2-B2
формула для вычисления итого: <span>=СУММ(C2:C11)</span>
Dim s As Integer, d As Date, h As Integer
d = CDate(InputBox("Введите дата начала графика", , "2016/01/02"))
Do While s < 176
h = Weekday(d, vbMonday)
If h <> 7 Then
s = s + 8
Cells(i + 1, 2) = s
Cells(i + 1, 3) = d
End If
Cells(i + 1, 4) = h
i = i + 1
d = d + 1
<span>Loop</span>
Uses crt;
var five,two,a,N,i: integer;
begin
clrscr;
five:=0;
two:=0;
readln (N); // кол-во учеников
i:=1 to N do
begin
read (a); // ввод оценок через пробел
case a of // выбор и подсчёт кол-ва
2: two:=two+1;
5: five:=five+1;
end;
end;
writeln ('Five: ',five); // вывод результата
writeln ('Two: ',two);
readln ();
<span>end.</span>
2 вопрос 3 способа 1 из а в з из а в б в д в е в з и внизу также