Решение в прикрепленном файле, воспроизвел таблицу только по последним трем столбцам.
формула для вычисления налога: =ЕСЛИ(A2<=1700;A2*0,12;A2*0,2)
формула для вычисления на руки: =A2-B2
формула для вычисления итого: <span>=СУММ(C2:C11)</span>
Program n1;
var i, S: integer;
begin
S:=0;
for i:=1 to 99 do S:=S+i;
writeln(S);
end.
................................
Var N, S: integer
BEGIN
write ('Vvedite N'); readln (N);
S := 0;
while N > 0 do
begin
N := N mod 10;
S := S + 1;
end
writeln (S);
if S mod 9 = 0 then writeln (N, 'kratno 9') else writeln (N, 'ne kratno 9');
END.
1) 5 => 8 => 16 => 19 => ответ 38
2)2 => 7 => 6 => 11=> 10 => 15 => 14 => ответ 42
3) 1=> 3 => 2 => 6=> 5 => 15 => ответ 14
4) 1=> 6 => 5 => 10 => 9 => 14 => 13 =>18 => ответ 17